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1. ABSTRACT 


L_INSURE 
the pia hr CAPABLE OF Ne SEEKS, THE ACCESS TIMES 
OLERANCE, T SSING 


RACK AND 
cracuITRY ppeere PROPERLY ENO THE DATA STORAGE AND 
RETRIEVEL CAPABILITIES ARE FUNCTIONAL. 


2. REQUIREMENTS 


2.1 EQUIPMENT 


PDP-11 COMPUTER WITH 16K OF MEMORY, CONSOLE TELETYPE, 
RH70/RPO4Y DISK WITH FORMAT TED PACK: 
AND A KW11-P CLOCK (IF TIMING TESTS ARE DESIRED). 


2.2 STORAGE 


THIS PROGRAM WILL LOAD IN 12K BUT REQUIRES. 16K TO RUN 
é.3 PRELIMINARY PROGRAMS 


MAINDEC-11-DERPS 
MAINDEC-11-DERPT 
MAINDEC-11-DERPU 
MAINDEC-11-DERPV 


2. LOADING PROCEDURE 


USE STANDARD PROCEDURE FOR LOADING .ABS TAPES 
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STARTING PROCEDURE 


1 CONTROL SWITCH SETTINGS 


THE CONTROL SWITCH SETTINGS ARE INPUT VIA THE TTY. 


TO ENTER THE CONTROL SWITCH re MODE PLACE SW<07>=1 
BEFORE PRESSING START. THEN UP 
WILL TYPE THE P 





STARTING THE PROGRAM ate 
SENT CONTENTS oF THE CONTROL SWITCH REGISTER 
(C. TING TQ BE INPUT. THE INPU 
BrntneeS! CONSIST OF A SLASH (7), 1 TO 6 OCTAL DIGITS, Two 


THE C.SWR SETTINGS ARE: 


eee aT: INHIBIT ALTE PACK BEFORE TESTING (TESTI6) 


C.SWR<14>=0...NO FUNCT 
=}; Biotk oe Tee EVERY DRIVE FUNC TO 
C.SWR<13>=0...USE SPECIFIC STALL TIMES 
=1...USE RANDOM STALL TIME 
I 


C.SUR«12>20. 27K I ING 
ee ORM I 
C.SWR<0B>=0... el PEERS HITH DATA TR 


IN TESTY 
NG STALLS IN TESTY 
TRANSFERS 


DO 
C.SWR<07>= + oD HEADER AND DATA COMMANDS IN TESTS 0-6 


=1...D0 EXPLICIT SEEK COMMANDS IN TESTS 0-6 

:. ‘SR«O6>=0. 60 HZ POKER POWER SOURCE 

C. SWROS)=0.. “ALL TIMEOUTS( LE WATCHDOG TI 
1: ALLO SOE Toa TI wraeout (DISABLE WATCHDOG 

THE DEFAULT CONDITION OF C.SWR<1S:00>=0. 

REFER TO 4.4.1 FOR C.SWR SELECTION 


4 STARTING ADDRESSES 


STARTING ADDRESS 


200 
cig SELECT Ri/a/neOs ROORESEES. 


214 COMBINATION OF 204 AND 2 


FMER) 





————— 
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180 1. LOAD PROGRAM INTO MEMORY (SEE SECTION 3.) 

is S Bein Rtier2) ao Ono Srei uate chal 

is ie a BEE ahr 

165 S. Ser SurTcies oe SECTION | 4.1 8 S.1). 

166 b: 

EB 4.4 PROGRAM ACTION 

70 


IN AN EFFORT TO ALLOW CONVERSATION WITH A PROGRAM FOR THE 
PURPOSE of CONTROLLING ITS OPERATION AND PARAMETERS THE FOLLOWING 
CONSTRUCTIONS N 
NOTE1: IN ALL EXAMPLES BRACKETS PRE USED FOR CLARITY AND ARE 

NOT rere BY THE USER. 
NOTE2: The. CHR oe RETURN TYPED BY THE USER IS INDICATED BY 
> AND WILL BE ECHOED AS A “CARRIAGE RETURN-LINE FEED. 


“! 
= 


«.><CR> PERIOD 


iE 
fi 
z 


OR: WHEN TYPED AT THE 

1 (LEGAL ON ALL LINES) IT TELLS 
TER STRING INTERPRETER (PSI) THIS IS 

4 CURRENT PARAMETER 


«..><CR> PERIOD PERIOD 


SOY RDS ALA STIRS DP 


THE PSI THIS IS THE 
ON ALL LiNES) BEGIN EXECUTION. 10N- * 


«,><CR> COMMA 
A CONTINUATION INDICATOR AND FIELD SEPARATOR: 
1) HG IS THE CONSTRUCTION USED WHEN NOT USING 
COMMA SAYS 


A PERIOD: THAT IS TO SAY THE SA 
SEERINATE THE LINE BUT NOT THE INPUT FOK 


SEGRRESOLESS SERPS SIS otal Zanes 


2) SEPARATE MULTIPLE ENTRIES ON THE SANE TEXT 
STRING, I.E., A,B,C,D. 


CERES 





ge 
~ 
oO 
Os 
bop 
~ 


Soest 
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SLASH 


a TE hake INDICATOR: AT ANY GIVEN PARAMETER 
A if ef phash Jet S FypeD IT SAYS “OPEN THIS 


CONTROL-U 


DUMP 1 PRESENT INPUT STRING AND START A NEW 
LINE. TYPED BY DEPRESSING THE | oe KEY” 
(CTRL) AND THEN STRIKING THE ” 


RUBOUT 


DELETE THE LAST CHARACTER FROM THE INPUT STRING. 
TYPED BY STRIKING THE “RUBOUT™ KEY. WHICH WILL 
BE ECHOED BY A BACKSLASH (\) FOLLOWED BY THE 
CHARACTER DELETED. 


CONTROL SWITCHES SELECTION 


STARTING THE 


WITH SW<O7>=1 WILL RESULT iN. ENT 
SET T “ALLOWING 


TING 


DESIRED STATE OF “C:SWR™. 


AT ANY OF T S ARTING FODRESSES 
ING THE “CONTROL Sui TCH 
THE OPERATOR TO SPECIFY THE 


ety 


CONTROL SWITCH SELECTION EXAMPLES 


EXAMPLE #1 


SET SW<07>=0 
C. SWR=000000/400 


EXAMPLE #2 
SET SW<07>=0 





C. SWR= 7220 
€: Sut=000000/220 
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4.4.2 ALORESS SELECTION 


LEU" TOA co ESIGN 

I uh os Bois Revere a 
SES LANA a PH Daal Pio 
WILL BE TAKEN: 


1. IF THERE IS A MONITOR -- RETURN TO THE MONITOR 
2. IF THERE ’T A MONITOR -- ASK FOR NEW ADDRESSES 


TARTING THE PR AT 21 14 
To ounce The TROL ANS STATUS eats al ce 
THE VECTOR ADDRESS, AND THE PRIOR 
4.4.2.1 ADDRESS “SELECTION EXAMPLES 
EXAMPLE #1 
RHCS1=177200/176300. . 
EXAMPLE #2 
RHCS1=177200/176300, 
RHVEC=eS4/e60, 
RHPRIO=S/6.. 
EXAMPLE #3 


RHCS1=177200 
RHVEC=254/7260. . 


EXAMPLE #4 
RH70/RPO4 FAILED TO RESPOND TO ADDRESSING 


RHCS1 ERR PC 
1=177200/176300. . 


EXAMPLE #5 
RHCS1=177200/1776\67\6300, 
RHVEC=2S4, 


RHPRIO=5 
RHCS1=176300. . 


PRIS i ace RRR RARE As edt ar ah Ae a # 


BD 
ww 
= 
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4.4.3 DRIVE AND PARAMETER SELECTION 


STARTING THE PROGRAM AT 200 WILL RESULT IN AUTOMATIC 
SELECTION OF THE DRIVES TO TEST AND THE TESTS TO RUN. 


STARTING THE PROGRAM AT 210 OR 214 ALLOWS THE OPERATOR 
TO SELECT THE privet) TO BE TESTED, THE TESTS TO BE EXECUTED, 
AND THE PARAMETERS TO USE. 

4.4.3.1 DRIVE AND PARAMETER SELECTION DESCRIPTION 


THE FOLLOWING IS A TABLE OF TERMS USED BY THE PSI. 


wom REPEATS (ITERATIONS) 

"FC" —- FIRST CYLINDER ADDRESS 

=LC" AST CYLINDER ADDRESS 

a CYLINDER 

tbe FIRST TK eee 

"IT" — INCREMENT TRACK 

mi FIRST zee Ton ADDRESS 

“BAT” {USED FOR BATA TEST) 
or ee ire # sere 8 1 10 
- a T TIRING. TESTS, 
a fe Bills A Tests 
* 

# USED BY USER AS 


NOTES: ALL ‘hureRs ULL ge Pin EXCEPT FOR THE PATTERN 


CTION. “PAT” WILL BE SELECTED 


By : ait res E. 001000 J=PATTERN 9) AND “WOX" WILL BE IN OCTAL. 


SPECIAL CASES OF CONTROL CHARACTERS 


IF <..> IS TYPED WHILE A TEST IS OPEN FOR MODIFICATION 
(</>) AND OTHER TESTS IN THE “TEST COMMAND” STRING 
ARE TO BE OPENED, T..: WILL ree THE PARAMETERS OF 
THE TEST THAT IS'OPEN WHEN <..> IS TYPED. 


; (2 18 § ILLEGAL AS A “TEST” LINE TERMINATOR 





ST IS TO BE OPENED. 
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INA GORY CASE RAMTER BUT IF THE, UR DeeoRes 10 SELECT THE 
RIVES T TESTED, THE TESTS TO 
TO BE USED Ae ENTERS CONVERSATION MODE ey UTVPING C CONTROL Ct Cc (el 


THE PROGRAM WILL RESPOND WITH: 
DRIVE(S)= 


WE WILL ASSUME FOR OUR EXAMPLE THAT THE OPERATOR WISHES TO TEST 
DRIVE #3 USING TESTS 2 THRU 7 AND TEST 11 AND DOES NOT DESIRE TO CHANGE 

THE PARAMETERS (INITIAL CYLINDER ADDRESS, FINAL CYLINDER ADDRESS, ETC.). 

THE USER WOULD TYPE “3<.>" WHICH SAYS “THIS IS THE END OF ANY 

CHANGES [0 THIS LINE BUT TAKE ME DEEPER FOR MORE CHANGES”, AND <CR> “TAKE IT.” 


FOR CLARITY THE LINE WILL BE REPEATED AS IT LOOKS AFTER USER RESPONSE WITH 
THE LINE BELOW IT ADDED, THE PROGRAMS RESPONSE: 


DRIVE (S)=3, <CR> 
TEST= 


14-OCT-76 10:36 PAGE i0 





<«CR> (TAKE IT). 
IT NOW LOOKS LIKE THIS 


ORIVE(S)=3 oe 
TEST=2-7, 11... 


IN OUR NEXT EXAMPLE WE WILL ASSUME THE USER WISHES TO TEST DRIVE 
4 AND RUN TESTS 1 AND 3 THRU 11 WITH THE PARAMETER FOR TESTS 3 


DRIVE(S)=4, <CR> 
TEST=. 


THE USER NOW HILL INSERT A LINE TO 
BUT REMEMBER HE WISHES a “OPEN” TEST 
CHANGES. THE ENTIRE Y IS SHOWN 


DRIVE(S)=4, <CR> 
TEST=1, 3/4"7, 10/11. <CR> 


NOTICE THIS SA ECT TEST ONE, CONTI SELECT TEST 3, OPEN</); 
SELECT I Es 3. S17, CONFINES, »5 SELECT TES “103 OPEN</> ; Suet TEST 
3 








a ne ee en reece one ee ee, 
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gyegagumaaas 3 


SRES 


Some 





pet Rei THE TEST STRING AND DETERMINES THAT TEST #1’S 
PORAME WILL REMAIN THE SAME BUT 

TEST 3°S BUST CHANGED. THEREFORE, TEST 

3 IS OPENED FOR CHANGE. 


RESPONDS: <FOR CLARITY ENTIRE TRANSACTION REPEATED» 


DRIVE(S)=4, <CR> 
Testet L377, “iO/11. <CR> 


R=X ;WHERE X IS ITERATION 


NORMAL MANNER TYPING A </> WILL OPEN THIS LINE FOR 
MODIFICATION OF THE ITERATION COUNT, ENDING THE LINE WITH 

<.> (PERTOD) WOULD TERMINATE THE CHANGES FOR THIS TEST AND AS 
IN THE EXAMPLE SHOWN USING A <,> (COMMA) WILL GET US THE NEXT 


DRIVE (S)=4, <CR> 
Testl, a7, , 10711, <CR> 
“Rel <CR> ;D0 NOT ALTER-BUT CONTINUE 
C=N ;WHERE N IS FIRST CYLINDER ADDRESS 
THE USER DOES NOT WISH TO CHANGE “FC” SO THE FOLLOWING ACTION IS TAKEN: 
DRIVE(S)=4, < 
Testet, Laer, fO/11. <CR> 
ag <CR> ;D0 NOT ALTER THIS LINE BUT CONTINUE 
Foca, <cR> :DO NOT ALTER THIS LINE BUT CONTINUE 


THE EXAMPLE. THIS IS 


(TAKE IT). 
THE TOTAL TRANSACTION AND RESPONSE: 


DRIVE(S)=4, <CR> 
rests »3/4=7, 10/11. <CR> 








he ne a ee — rn EE CR a SS SS 
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RUGER THRU? WETH THETR PREVIOUSLY RSDYGNED PARAMETERS AND IS 


TING FOR CHANGES TO TES 
T R TYPES </> (OPEN THIS L Ne rf R CHANGED 
THE WER COUNT 10), <.> (THIS duentes tot TO aoe 
TEST) <CR> (TAKE th: 


ne PROGRAM NOW LOADS TEST 10 WITH THE NEW PARAMET aH TEST 11 
WITH PREVIOUSLY ASSIGNED PARAMETERS AND RESPONDS WIT 


DRIVE (S)= 


The PROGRAM HAS LOOPED BRCK TO THE BEGINNING LOOKING FOR ARE 


« 
TION A 
: Hee “WIL T AUse THE TEST MESSAGE TO BE REPEATED AND 
CHANGES CAN BE MADE. HOWEVER, AT SOME POINT IN ORDER TO EXECU 
1 me 4 MADE WE MUST NOTIFY THE PROGRAM WE ARE FINISHED 2 
its 
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EXAMPLE #1 


DRIVE=4. .<CR> 


EXAMPLE #2 


DRIVE=0, <CR> 
TEST=1-5. .<CR> 


EXAMPLE #3 


RIVE=2, <CR> 
Peay e Tos bo 7/107. <cR> 
TEST 6 


R=1,<CR> 
FC=0/10.<CR> 


Fo=0 < 
Ce=a1O7e0. .<CR> 


DRIVE=0, <CR> 
TEST=S,e..<CR> 


DRIVE=1,<CR> 
TEST=S/0. <CR> 
EST 0 
R=10, <CR> 
FC=fiu. .<c> 
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;SELECT DRIVE #4, TERMINATE A 
‘BEGIN EXECUTION USING PREVIOUSLY ASSIGNED 


: PARAMETERS 


;SELECT DRI 
pe TEST 1 


ARAMETERS TERMIN 


AON Test 1S Mirh DeEALT Er PARE TERS, OPEN 


ERE R Ae 1S HOVE TORENT PARAMETER 
Se pf TLINDER ADDRESS TO 10 “." END CHANGES 


350 ITERATIONS, MOVE TO NEXT PARAMETER i 
D0 NOT C "EC" CYLINDER ADDRESS BUT CONTINUE “, 

TEST 10 IS STILL PENDING 
W Le THEREF ORE 


;SET_T0 T 


; PARAMETERS 
;AS TEST - -- START EXECUTION 


3 SELECT DRIVE #0 AND MAKE CHANGES 
;RUN ALL SEEK TESTS AND THE EXERCISER 


; RUN ALL SEEK TESTS (OPEN FOR CHANGES) AND 


{TESTS 1-6 WILL BE ASSIGNED THE 
SAME PARAMETERS AS TEST O 





VE #0 AND MAKE CHANGES 
THRU S ONL t 
AND ATE AND ECECUTE * 


en ree Ene Ee ee 
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3 EXAMPLE #6 

14 

515 ORIVE=1, <CR> 

Sle TeST=6/, «CR» ;OPEN THE SEEK TESTS (TST 0-6) 

elg reegiO/ 100. «CR» ;CHANGE TO 100 ITERATIONS; <.» MOVE TO NEXT TEST 





rt ere gey SOO. «Cm ;CHANGE R TO 1000 ITERATIONS; <.> MOVE TO NEXT TEST 










R=1/10, <CR> ;CHANGE R TO 10 ITERATIONS : <,> MOVE STO NEXT LINE 
FC=0/50, <CR> ‘CHANGE FC TO SO; <,> MOVE TO NEXT LINE = 
ree gg tO/S1. <cR? *CHANGE LC TO 51; <:> MOVE TO NEXT TEST 
reat :<.> MOVE TO NEXT TEST 
=1..<CR> SUSE TESTS 4’S PARAMETERS 
FOR TEST S & & START EXECUTION 
EXAMPLE #7 


DRIVE=1,<CR> 


Teg tsp” ge ;SELECT AND OPEN THE DATA TEST 
R=1/1000, <CR> 300 1000 ITERATION OF TEST PATTERN 
FC=0/10, <CR> ;#8 ON CYLINDER 10, TRACK 2, SECTOR 4 


A aA tt it ati alt 





S40 
S42 LT 
S43 IT: 
S44 
S45 LS 


EOE one Oe 
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re eee ee 


EXAMPLE _ 


DRIVES1,<CR> sUSE THE SAME PARRMETERS AS IN EXAMPLE 
TEST=0/.<ER> BUT ALSO SPECIFY YOUR OWN DATA 
T ‘Bat TERN (PAT #0). 





Lé=4'< 
BET ASouoO/4O! <CR> ;RUN WITH PATTERN #8 8 #0 (OSOPERATOR INPUT) 
WO1l= ISesss 5c08 eR | FIRST WORD OF P 0 


WO2=133333/Se5e5. . SECOND WORD OF PATTERN O - 
>’ START EXECUTION 
EXAMPLE #9 
DRIVE=0,1,4, sTEST DRIVES 0,1, AND 4 IN SEQUENCE 
TEST=0-6/" ‘CHANGE TEST 0-5 
R=10, 
ésaiovi.. ;CHANGE LAST CYLINDER FROM 410 


370 1 FOR TEST a0-5; START TESTING 
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; SAVREG, 


» TYPOC, TYPOS 
ROLIN 


ERROR) 


T 
HIS CALL IS USED TO REPORT ALL ERRORS (REFER TO 6). 


3. TRAP (USED FOR TYPE 
TYPON, TYPDS, RDCHR 


AND RESREG) 


JSR R,ADR 
; FOLLOWING a ae CONTAINS AN ABSTRACT 


CALL 

ON 

TONS 
EMT (USED F 


2. 


O-mUMTin.or wo 
ee eae heh eee oe hae De bee Dod Doe | 
0.000... 


4. 


ee TE 


EACH SUBROUTINE 
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651 


657 
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6.1 


6.1.1 


AND READ/WRITE TEST” 
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TE (ae Cn ERROR TOE THAT C 
PRO Oro aD ENCOUNTERED 
THE ERROR RCUTING ADE AND 3 
SET AN E ME PERTAINING TO T 
TYPED. EACH ERROR TYPE OUT WILL CONTAI 


1. AN ERROR MESSAGE 
- & DATA HEADER 
A DATA STRING 


REFER TO THE FOLLOWING SECTION FOR THE DIFFERENT 
ERRORS THAT CAN OCCUR. 


ERROR TYPES 


THE THAT 0 IN THIS PROGRAM FALL INTO THREE 
(3) ATECORIES DF INED AND EXPLAINED AS OWS: 
DRIVER ERROR 


THERE ARE THO CLASSES OF edge RRO ie 


GfeornariOn 16 oe RETURNED TO a BLOCK” 
reat ca FIRST "Gass WILL BE 


REPORTED. eteMt™S) i-S WITHIN THE DRIVER. 
THE SECOND. CLASS Witt” PASS THE ERROR CODES TO THE 
STATUS/ERROR WORD *(DPB+16) OF THE PROPER 


ILL BE 


2 
oO 
= 
— 
= 
@ 


w 


6.1.2 NON-FATOL ERROR 


THESE ERRORS WILL BE DUE TO “DISK” OR “DATA” FAILURES 
WHICH WILL BE REPORTED AS THEY OCCUR. AFTER REPORTING 
THE ERROR THE PROGRAM WILL CONTINUE TESTING. 


6.1.3 FATAL ERROR 





THIS TYPE OF ERROR WILL BE THE RESULT OF _ANY KIND 
OF ERROR THAT INHIBITS THE PROGRAM FROM TESTING THE DISK. 


THIS ERROR WILL BE REPORTED WHEN IT OCCURS THEN THE PROGRAM 
WILL ABORT THE TEST AND GO TO THE END OF PROGRAM 


DERPKC.P11 
$.2 ERROR RECOVERY 





6.2.1 PRETEST ERROR 


WHEN THIS TYPE OF os ceuRS iT WILL BE REPORTED. THEN DEPENDING 
ON HOW THE PROGRAM WA TED IT WILL ASK FOR THE DRIVES AND 
ADDRESSES FOR TESTING. of RETURN TO MONITOR. 


6.2.2 NON-FATAL ERROR 


WHEN THIS TYPE OF ERROR OCCURS IT WILL BE REPORTED AND 
THE PROGRAM WILL CONTINUE IN TEST. 


6.2.3 FATAL ERROR 


WHEN THIS TYPE OF ERROR OCCURS IT WILL BE REPORTED. THE 
PROGRAM WILL ABORT THE TEST AND GO TO THE END OF PROGRAM. 


Pe RESTRICTIONS 


per ORs STARTING THE PROGRAM THE OPERATOR MUST INSURE THAT A 
ron OER I5 LOADED AND WRITE ENABLED IN THE DRIVE(S) 


8.1 EXECUTION TIME 


ONE PASS OF THE PROGRAM TAKES APPR st 


TO MAKE LY 
4 MINUTES FOR EVERY 4K OF CORE. THE RUN TIME INCREASES LINEARALLY 


FOR EACH DRIVE TESTED. 


BEIERTERES SBIR EO OSB ARR COS Bae lated t 
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710 8.2 STACK POINTER 
712 

713 STACK IS INITIALLY SET TO 1100 AND EXTENDS DOWN IN MEMORY. 
715 8.3 COMMON TAGS 

717 oe 

718 THE COMMON TAGS USED IN THIS PROGRAM START AT 1100 AND EXTEND 
71 uP IN MEMORY. 


omen an ee on ee ee eee 
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8.4.1 
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TIMING TESTS (TST7-TST12) PRINTOUTS 


THE COMPLETION OF EACH OF THE TIMING TESTS THE TIME OF THE 
RINTEUn SEEK MAXI HUN K THE AVERAGE OF ALL OF THE 
PERFORMED TTY. THE NUMBER OF SEEKS THAT 
- OWED D WILL BE TYPED ON 
a5 AS ries NINIAUM IME. THE ABOVE THE 


THE 

MAXIMUM BTM, Tre He Soe LIN AS THE MAXIMUM 

TIME, A HE OTL RUMBER’ OF S PERF WILL BE ON THE 
SAME LINE AS THE AVERAGE. 


NOTE: Ly PROGRAM STALLS FOR 2 ee he aie SE 
wus STALL TIME IS NOT INCLUDED I 


TED SEEK TIMES. 
THE Rebs veRook. The Seb 1 Aes RIED et eee ra 


T Y AND ARE NOT A 
OF EFFECTIVE SEEK TIME. 


TIMING TOLERANCES 
1. TEST 7 -- ROTATIONAL SPEED TIMES 


=16250 US 
MAXIMUM=17090 
NOMINAL=16670 U 


@. TEST 10 -- ONE CYLINDER SEEK TIMES 


3. TEST 11 -- AVERAGE SEEK TIMES 
MIN 
HaxTNuM=30000 US 
NOMINAL=28000 US 
4. TEST 12 -- MAXIMUM SEEK TIMES 
Ce eonon US 
MAXIMUM=S2000 US 
NOMINAL=S0000 US 











3 


SITTIN d 


SRRPSH SSSR ALOR 


FRc. tra eT ee YT 
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EXAMPLE #1 


add SPEED TIMES 
paeiee 70 US 


16690 US 
AVG=16680 US 10 SEEKS TIMED 
ONE CYLINDER SEEK TIMES 
#* 0 2....410 &# 

MIN= us 

MAX=6920 US 

AVG=5550 US 409 SEEKS TIMED 
#* 410, 409, 408,...0 #% 
MINS] 


MAX=S 

AVG=5430 US 410 SEEKS TIMED 
ane SEEK TIMES 

“aE. oa 


US 
VG=28230 US 128 SEEKS TINED 


US 

US 128 SEEKS TIMED 
MAXIMUM SEEK TIMES 

## 0 TO 410 ## 


128 SEEKS TIMED 


128 SEEKS TIMED 
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Mal Sa SPEED TIMES 
MIN=16670 US 


MAX=16690 US 
AvO= 16680 US 10 SEEKS TIMED 


ONE CYLINDER SEEK TIMES 


#% 1, 2,...410 ## 
MINS$470 US 
MAX=10940 US 3 eo OF 10000 US 


cocom@manMa 
el eee cee ee ae a 


=$970 
AVG=5330 US 410 SEEKS TIMED 


BVERASE K TIMES 
## 0 TO 136 ## 
MIN=29730 US 


MAX=31620 US 73 ABOVE THE MAXIMUM OF 30000\US 
AaVG= US 128 SEEKS TIMED 

LE nodes 00 #% 

MIN=28620 

MAX=31230 US 128 ABOVE THE MAXIMUM OF 30000 US 
AVG=30800 US 128 SEEKS TIMED 


MAXIMUM SEEK TIME 
+ Bat ¥E 
MAX=54240 US 128 ABOVE THe MAXIMUM OF S2000 US 


Ree Bat oe 
MINZS2050 US 

MAX=S4SS0 US 128 ABOVE THE MAXIMUM OF S2000 US 
AVG=52210 US 128 SEEKS TIMED 


BES GPREOR HORROR oes SOON EOS 


a an ee ee ne oo ree ee ene oe een: 
- 


SEMPRE ORE CSO UENEOR & 


SF 


BEB RRR ESR. Sse ols ad 


— 
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WITH AL oH TCHES ON A "0" AN “END 
TYPED A COMPLETION OF TESTING A 
TYPEOUT Itt OCCUR WHEN ALL DRIVES HAV 


8.6 RH70/RPO4 DRIVER 


ALL OF THE COMMUNICATION WITH THE RH70/RPO4 IS PERFORMED 
vie ° Bey IVER. THIS SECTION CONTAINS THE USERS QUIDE 


8.6.1. TO INITIALIZE THE DRIVER: 
JSR PC, ,RPINIT 
RETURN 
Re Tuan YOU MUST EXAMINE THE “DRVSTA” TABLE TO OS erate 
re OFT T 


NONE BY E PER ORIVE.. THe STATE OF EACH DRIVE WILL 
ai CATED a FOLLOWS: 


>0 ON LINE 
=0 OFFLINE 
<Q UNSAFE OR NONEXISTENT 


nth NON-RPO4 DRIVES TOICATED Ge ELE OFFLINE. AND THE DRIVE TYPE 


WILL BE INDICA USING “DRVSTR” AND 
DRVTYP” THE FOLLOWING CAN BE DETERMINE NED: 
ONLINE OFFLINE UNSAFE NONEXISTENT 
DRVSTA>O DRVSTA=0 DRVSTA<O DRVSTA<O 


DRVTYP=(RHDT) ORVTYP=(RHDT) ORVTYP=(RHDT) ORVTYP=0 
THE RPINIT ROUTINE WILL DO A READIN PRESET AND WILL SET FMT2e. 








a ne ee ee 
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UE IS FULL 
QUEST IS IN 


;ERROR CONDITION 


s MAKE Lg CALL 
F iF ge 


A 
3k 


FOR YOU. 
CALL 


Soe anna RRR Rastoataa ae N OMNIS 


*DPB (DATA PARAMETER BLOCK) 


3 
: 

E SW oe BWeeEee De 
s fie o etn 2 
fy boetetveste o° 
sities pa: see 
See feinieh wees eet 


SH OD OM OCH OS OM OD OD OD OH OD OG OH OG OD OS OH OHM ERED OH OD 


QOo00000 2 20 oo Oo 
weer YE Be 2 
Baas & & $$ S 





' 

' 

; 

me. we oe ee ~ 
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TO UTILIZE THIS CAPABILITY YOU MUST SUPPLY THE “RP TIMER” ROUTINE 
WITH THE ELAPSED TIME IN THE FOLLOWING MANNER: 


MOV #16. ,-(SP) APO TEKS BETWEEN 
JSR RO,RPTMR SCALL THE TIMER ROLTINE 


IT SHOULD BE ep THAT YOU MUST PROVIDE THE CODE TO DRIVE THE 
CLOCK. AND THE EL ee TIME MUST BE IN MILLISECONDS. 

THE DRIVER WILL TAO TO_1 SECOND FOR ALL POSITIONING 
AND DATA_TRANSFE OPERATI S AND WILL SET THE TIMOUT TO 30 
SECONDS FOR ERROR RECOVERY OPERATIONS. 


EXAMPLE - WRITE 1000. WORDS 


1S: JSR RO,RPO3 CALL THE DRIVER 
WRTDPB DPB ADDR 
BR 1$ *WAIT FOR QUEUE IF FULL 
23: IST WRTOPB+16 WAIT FOR COMMAND TO COMPLETE 
BMI ERRORI sERROR OCCURRED 
WRTDPB: .BYT sDRIVE #5 
BYTE : : 
‘BYTE 161 *WRITE COMMAND 
-BYTE O s 
“WORD 1000. *WORD COUNT 
WORD WRTBUF : ADDRESS 
BYTE 3 SECTOR 
‘BYTE 5 : TRACK 
“WORD 400 CYLINDER 
“WORD ERRTBS ERROR TABLE 
“WORD «OO *STATUS/ERROR INDICATOR 
ATERNATE DPB SETUP 
WRTDPB: .WORD 5 sTHIS SETUP ACHIEVED 
“WORD WRITE > EVERYTHING THE 
“WORD 1000. * ABOVE FABLE DID 
“WORD  WRTBUF *IN A CLEANER EDANEY 
“BYTE 3,5 
RO 400,ERRTBS,O 





ne a ee + ee ne 2 ee = ee 
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C.P 
975 
ace MNEMONIC INDEX 
358 RHCS1 0 
980 RHIC 2 
981 RHBA 4 
9p2 RHDA 6 
983 RHCS2 10 
84 RHDS1 12 
985 RHER1 14 
a6 RHAS 16 
987 RHLA 20 
$88 RHDB 22 
989 RHMR 34 
990 RHDT 26 
991 RHSN 30 
a3 RHOF 32 
993 RHCA 34 
994 RHCC cf 
gas RHER2 40 
3% RHER3 yo 
RHEC1 44 
998 RHEC2 uf 
| 1006 RHCS3 52 
i0g2 8.6.6. COMMANDS PERFORMED BY THE DRIVER 
1004 COMMAND CODE 
| tone 
| 1097 NO OPERATION 101 
1908 UNLOAD 103 
1011 SEEK 105 
1013 RECALIRATE 107 
| 16165 DRIVE CLEAR 11 
iB RELEASE 113 
| O18 OFFSET 115 
| 1021 RETURN TO CENTER 117 
ites READIN PRESET — 121 
| 188 PACK ACKNOWLEDGE 123 
| 12 SEARCH 131 
; 
| 
; 


COMMAND TYPE 


wu 2azaaeupewwyr2aza2Z2zaesewyete2Zzzaz 





nn nn me ee 



























1650 SET FORMAT 143 S 
1032 SELECT DRIVE 145 S 
1034 WRITE CHECK DATA 151 D 
103e et HEADER 1S3 D 
39 WRITE DATA 161 D 
Bul WRITE HEADER & DATA 163 0 
ais READ DATA 171 D 
hee READ HEADER & DATA 173 D 
047 

O48 N = HOUSEKEEPING 


P = POSITIONING 
D = DATA TRANSFER 
S = SPECIAL PROVIDED BY THE DRIVER 


8.6.7. DPB STATUS/ERROR INDICATOR 


THIS INDICATOR WILL INFORM THE USER OF THE RESULTS OF THE REQUEST. 
Ne TS ACCOMPLISHED BY SETTING VARIES BITS OF THE INDICATOR TO 


o 
b 


BIT NO. MEANING IF ON A “1” 


staal tag 


st=}=t={=[=]=}=}={=lolt=talolatet=tatalal=lolatatntalot tata 
= 
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O62 15 ERROR OCCURRED 

063 - DONE (BITO7=0); BITS 14-10 SPECIFIES TYPE 
ne DONE (BITO7=1); BITS 06-03 SPECIFIES TYPE 
0&6 14(1) USER MADE A REQUEST FOR A FUNCTION TO BE 
ree PERFORMED ON AN OFFLINE OR UNSAFE DRIVE 
1069 13(1) USER MADE A REQUEST FOR A FUNCTION 

1070 TO BE PERFORMED ON A DRIVE THAT HAS AN 

iS UNLOAD REQUEST IN QUEUE. 

its mee 12(2) PERSISTENT UNSAFE CONDITION EXIST. 

ie 11(2) ' . PARITY ERROR OCCURRED 

1077 10(2)(4) FATAL PARITY ERROR. A MASSBUS CLEAR WAS 
1078 PERFORMED, ALL QUEUES WERE EMPTIED, AND 


ALL ORVACT’S SET TO THE IDLE STATE 
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RPKC.P 

i 9(3)(4) SOFTWARE TIMEOUT OCCURRED ON THIS DRIVE 
10ee 8(4) SOFTWARE TIMEOUT OCCURRED ON ANOTHER DRIVE 
pes ? DONE 

oes 6(2) ERROR OCCURRED DURING AN 1/0 OPERATION 
088 5(2) ERROR OCCURRED DURING AN OPERATION 

ne OTHER THAN 1/0. 

Bas 4(2) UNSAFE CONDITION OCCURRED 

033 3(2) DRIVE ERROR OCCURRED THAT CAUSED AN 

has AUTOMATIC “RECALIBRATE” SEQUENCE 

096 (1) = REQUEST WASN’T PUT IN QUEUE. (RH70/RPO4 
pan REGISTERS WERE NOT SAVED) 

099 (2) => REQUEST QUEUE HAS BEEN GIP TIED. THE DRIVER 


ISSUED A “DRIVE CLEAR” TO THE DRIVE. 
NOTE: ALL Vy Agha ata REGISTERS ARE ego 
AS PER DPB+14 BEFORE THE “DRIVE CLEAR” 


(3) => REQUEST QUEUE HAS BEEN EMPTIED. THE 
RUZOPR 7A EG : TERS FOR THe DRIVE WERE 
PER BPav is BEFORE THE INIT. 


(4) => A “RECALIBRATE” SHOULD BE ISSUED 
BEFORE ANY OTHER COMMAND. 


b+ 0 b= bb = be 0 9 Bf Bb fo bs b= 2 bp = pn ot pa pe 


— = & = bo bbe ns be pms Fe 
Witrbet tip tat ttt af 


-O 


ne ee ee LE 
' 


a en a ee ne en ey nn ee ae ee 


eee 


re et ne 
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ll a 
iti§ THERE ARE A FEW ERRORS THAT CAN OCCUR THAT CAN NOT BE INDICATED IN @ CPB. 
11s WHEN THIS TYPE OF ERROR 1S DETECTED BY THE DRIVER IT WILL afteke 
1116 AN ERROR CALL OF THE FORM “ERROR N", WHEPE “N” IS THE ERR 
1117 NUMBER AND THE ERROR WILL BE AN EMT’ INSTRUCTION. 
1139 
1189 N TYPE DATA AVAILABLE 
é on wmemwmnmw i _ ltt tt en a a a. 
lize 
lies : ! ILLEGAL SUBSYSTEM #R4= RHCS1'S ADDRESS 
i134 } INTERRUPT OCCURRED 
is ($620) ; 
lle? 2 ILLEGAL DRIVE Ri= DRIVE NUMBER 
1128 INTERRUPT OCCURRED R3= ATA BIT 
ies #R4= RHCS1’S ADDRESS 
li s ) 
1131 =RHOS1 
1132 RPERRS+2=RHERI 
1133 + =RHERD 
tie 
1136 3 MASSBUS CONTROL RD.ADR= ADDRESS OF REG. READ 
1137 BUS PARITY ERROR RD.WRD= WORD READ 
1138 OCCURRED (MCPE=} ) 
1149 4 CONTROL BUS WRT.AD= ADDRESS OF REG. WRITTEN 
1141 PARITY ERROR WRT.WD= WORD WRITTEN 
1ise OCCURRED (PAR=1 ) RD. WORD READ BACK 
lis 5 ATTENTION FROM 
1145 BN OFFLINE NONEXISTENT Ris DRIVE NUMBE 
L146 PREVIOUSLY DETECT R3= ATA BIT 
1147 ONSAEE opRive OCCURRED. #R4= RHCSI’S ADDRESS 
i148 NOTE: D HAVE BEEN = ( 
1149 CAUSED BY A BIT PICK RRS = 
1150 OR DROP WHEN READING RPERRS+2=RHERI 
1151 RHAS. RPERRS+4=RHERS 
11be RPERRS+6=RHERS 
1154 & RESERVED 
1155 
1156 ? RESERVED 
He 
1158 * THIS IS THE ACTUAL UNIBUS ADDRESS (177200) 
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a re ee ree 


PROGRAM DESCRIPTION 


9. 


as 





5 Z. 2 < 
Ao Ym. Sd - 
at BY 248 athe old 
Bee = Bae ena" a 
2 Seecee ows foot waa & 
Ssiguetnuste feasted & 
ae ea eae 
gett gon “Go ope - 
eae en eaeo see fe 

SSiwaSe Oo CS Bull ou 
MeO em Ss 3 Sana we 
awe is! aS \G ce i. = 
Bostonee tog) Seeetaue? = 
Sage ywetssor een Basin ve 
I eS a al at a 

a Eee eat a 

= ite eae - fate 

zo Eos Seagate & | 
sp eshageenteg Seeoresg | 
Sveriges 2 ates = | 
SAW Soe nwnsees Fe ye swe HE | 
Ss? = - - a Siw o 
Powe etySS Sry SE! | OF ! 
Mp terexSengs EGIsgeasad of 
sie ewwesevet—. Wav IpeuAes bh. | 


LDDs hetv tebe bebe here chasasasen tatoo eaeao 
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BESRRLE 


Bes 


~— Seshustusnustupeco-se-2e-cee perpen 


1218 RELEESELKESRES 
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em So OR mR a ee 
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' 1238 COPYRIGHT 1975 
| 1239 DIGITAL EQUIPRENT CORPORATION 
| e490 MAYNARD, MASS. 01754 





1545 
e44 


1281 
1eBe 


BRS E ES 


huratpronrety a ee 
~-_ 


“ry 


ee a ee eee 


MAINDEC-11-DERPK=-0 “MECHANICAL AND PEAD/WRITE TEST” 
DERPKC.P1l 


MACYI1 27(732) 14-OCT-76 10:36 PAGE 31 
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DECDOC Vv 


13 
3s 
57 
64 
76 
181 
246 
1048 
1353 
1570 
1605 
1919 
2309 


00.06 


15-SEP- PAGE 0 


spenenasestensaeere 
CONTROL SWITCH SETTINGS 
OPERATIONAL SWITCH SETTINGS 
TRAP CATCHER 
STARTING ADDRESSES 
BASIC DEFINITIONS 
MEMORY MANAGEMENT DEFINITIONS 
COMMON TAGS 
ERROR POINTER TABLE 
START OF PROGRAM 
eese TESTS sees 
### SEEK TESTS (0-6) ### 
### TIMING TESTS (7-12) ### 
##% ADDRESSING TESTS (13-14) ##* 
### DATA TEST (15) #%# 
### EXERCISE TEST (16) 2% 
### DATA TEST WITH ALL MEMORY (17) ### 
END OF PASS ROUTINE 
### SUBROUTINES ### 
ERROR HANDLER ROUTINE 
TYPERR - TYPE ERROR ROUTINE 
TYPE ROUTINE 
BINARY TO OCTAL (ASCII) AND TYPE 








as 
an 
ni 


einietinicietcistew eas 


CI GIIOIGIGIWIIGIW 
0 2 02 b= p= 0 hh ps he 
WONOU £WwUe-O 


t= b= 6 = bb Bb B= 8 = Bb 0 0 0 BO 0 0 0 6 bb = 0 8 0 0 bh oh oh 2 he ph pe pe 


FESR SRRIR REBORN ONES 
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3426 
3494 
3624 
3680 
3726 
3741 
3761 
3801 
3819 
3882 
3906 
3988 
4035 
4111 
4131 
4201 
4219 
4250 
4291 
4331 
4431 
4483 
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essntdasnarennante 
CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 
TTY INPUT ROUTINE 
SCOPE HANDLER ROUTINE 
SAVE AND RESTORE RO-RS ROUTINES 
TRAP DECODER 
TRAP TABLE 
DOUBLE LENGTH BINARY TO OCTAL ASCII CONVERT ROUTINE 
SINGLE LENGTH BINARY TO DECIMAL ASCIZ ROUTINE 
DOUBLE LENGTH BINARY TO DECIMAL ASCII CONVERT ROUTINE 
TYPE NUMERICAL ASCIZ STRING SUPPRESS LEADING ZEROS 
INTEGER DIVIDE ROUTINE 
RANDOM NUMBER GENERATOR ROUTINE 
ROUTINE TO SIZE MEMORY 
LP.AVL - LINE PRINTER AVAILABLE 
ST.CLK = CLOCK STARTUP ROUTINE 
LDCMD - LOAD COMMAND 
CALL.A - CALL RPOY DRIVER USING “DPB.A” 
CALL.B.- CALL RPO DRIVER USING “DPB.8” 
CALL.C “= CALL RPGY DRIVER USING “DBP.C” 
DRVCAL - DRIVER (RPO4) CALL USING “DTADPB” 
ERINOX - FORM ERROR INDEX | 


STALL - USED TO STALL AFTER A DRIVE FUNCTION IS COMPLETE 
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1 MBINDEC™11-DE 
1 DECDOC VER 
1348 
1343 
Hey 
1352 
1353 
1354 
1355 yusie2 
1356 
1357 4534 
1358 
1359 4562 
1360 
1361 40S 
1362 
1363 4611 
1364 
1365 4631 
1366 
1367 4670 
1368 . 
1369 4755 
1370 
1371 4774 
Be: ie 
1374 
1375 4814 
1376 
1377 4839 
| 1378 
1379 4933 
1380 
1381 4969 
1382 
1383 5063 
1384 
1385 sog4 
1386 
1387 S145 
1388 
1388 5166 
1330 S221 
i 1392 
| $393 S246 
| He 5310 
tee 
1397 


! 
i 
' 
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a Soe, 

TWOMS - STALL FOR 2 MS BETWEEN SEEKS IN TESTS 10- - 12 

VERIFY - VALIDATE HEADER ON IMPLIED SEEKS 

SRCHOO - INITIALIZE THE DRIVE FOR THE TIMING TESTS 

DORTI - RETURN FROM INTERRUPT 

STRTNR - START THE TIMERS 

COUNT - THIS ROUTINE COUNTS THE ELAPSED TIME 

TYPTIM - TYPE TIMES 

INCTRK - INCREMENT TRACK NUMBER 

INCCYL - INCRMENT CYLINDER NUMBER 

FILBUF - FILL BUFFER WITH ADDRESS DATA 
. CLRBUF - CLEAR BUFFER 

CKSCTR - CHECK SECTOR DATA 

SETBUF - SET BUFFER TO DATA PATTERN 

DATCMP = DATA COMPARE 

FILRAN - FILL DATA BUFFER WITH RANDOM PATTERN 

RANCK - RANDOM PATTERN BUFFER CHECK 

RANPAT - RANDOM PATTERN GENERATOR 

RANADR = RANDOM ADDRESS GENERATOR 

GETSWR - GET THE CONTROL SWITCH SETTINGS 
GETADR - GET BUS ADDRESS AND VECTOR ADDRESS _ 
GETNUM - ROUTINE TO GET A NUMBER - 
GT.PRM - GET PARAMETERS 
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1404 Serre 
14 S724  CK.OCT -- CHECK FOR CCTAL CHARACTER 
S744  CK.DEC -- CHECK FOR DECIMAL CHARACTER 
141 5764 CK.CHR -- CHECK CHARACTER 
1413 5798 CK.DIG - CHECK DIGIT 

1415 ; S864 CK.NUM - CHECK NUMBER (OCTAL) 
1417 S913 RHII/RPOY DRIVER (REV. 0.9) 


a 7211 ASCIZ MESSAGES 

russ 7297 ERROR HEADER (EM) MESSAGES 
ase 7373  STATUS/ERROR INDICATOR MESSAGES 
ruse 7433 DATA HEADER (DT) MESSAGES 

1427 7553 DATA TABLE (DT) 

1428 
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1425 7614 DATA FORMAT (DF) TABLE 

| 

| 

| 
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BRSRSRAAIOARSE SE 


BYGHTaL eguienent CoA. 


» MASS. 
PROGRAM BY J. LACEY/C. HESS/SUB MALLICK 
THIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 
PACKAGE (MAINDEC-11-DZQAC-Ae2). 


KLLELLLLLLLELLEL ELLE RE LERELELLLAARALLLLLL ELLE LALA LLELERERELELELEE 


CONTROL SWITCH SETTINGS 
HER HERE EEE EAE EE EE EEE EERE EEE EEE EERE EEE REESE 





14 
SWITCH STATE USE 

1S 0 WRITE PACK BEFORE TESTING (TEST 16) 
1 pee WRITING PACK BEFORE TESTING (TES 

Sf BURA hcl 

13 Q peat Ic TIME 

le 0 No” INCRENE ING STALL IN TEST : 

9 5 pe gat STALL a hare tanes 
GB HE are 

; b Be 

5 1 east 
} INNIBTT WATCHDOG TIMER 


min aaiitiTmTmmmr eee 
LLELLALLLAAAKLLRARLLLL LE LLLALALLLALELALA LEE LELE LEE RAERALAALLLLLEE 
36 


pre Se 
15 HALT ON 
14 rent ON TE 
tf NAIBIT ITERATIONS 
10 eet 
3 LOOP _ON 
9 PRINT ERROR ON LINE PRINTER 
Bait eater 
b RAFTS SEeUE Soe alts 1 
4 INHIBIT WRITES (TEST 15) 








<2 come oe - — - re ee ee me ee a re | ee me a er rs oe ee +e ae rr en eee oe ee a = one eee 


' 
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- DERPKC.P11 os 
1486 3 INHIBIT WRITE CHECKS (TEST 15) 
| 1487 2 INHIBIT READ AND SOFTWARE COMPARES (TEST 
| 
| 
| 
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30 DECDOC VER 00.06 15-SEP-75 14:04 
1433 1 INHIBIT SOFTWARE COMPARES (TEST 15) 
iiee 0 PERFORM READ AFTER WRITE CHECK ERROR (TE 
1496 JEHHEHE HHH EHHEHH HEHEHE HHH HEHEHE HEHEHE 
1497 57 TRAP CATCHER 
He JE HHE HEHEHE HHH HHH HEHEHE EEE i ee 
lent 60 Stig Ales coe Ry | CONTAIN A ”.+2,HALT™ 
1Bbe See 0 cONTAT NB Bf CATCH IRPROPERLY LO beAgED VECTORS 
im ws hes Dany s-051 +: ea ganaaen caepmaen iene 
ae ( JHE HIE EHH HEHEHE HEHEHE HEHEHE 
1508 66 200 = NORMAL START 


3 


68 204 = SELECT OPERATING PARAMETERS : 
70 210 = SELECT RH11/RPO4 ADDRESSES 
72 214 = COMBINATION OF 204 AND 210 
= "77-3 "7: 1 een eae enmnnamcmanemmememes 
JAH HHEHHEEHHE HHH HHHE HEHEHE HEHEHE 
78 INITIAL ADDRESS OF THE STACK POINTER ##% 1100 *#% 
89 GENERAL PURPOSE REGISTER DEFINITIONS 
101 PRIORITY LEVEL DEFINITIONS 
111 “SWITCH REGISTER” SWITCH DEFINITIONS 
139 DATA BIT DEFINITIONS (BITOO TO BITS) . 
167 


UIWNUN UU UU un 
2 hs he be ee 
WD NOUl.£ Wwe 


BASIC “CPU” TRAP VECTOR ADDRESSES 


* of ' 


asa tat iti ti dist 


we ae eee ee + eee canes a ee eee eo a es re - 
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DERPKC.P11 
DECDOC VER 00.06 


181 


0 0 bn B28 2 Fo pe Hae Pe pe pe 
Fe SBS RE 


1586 -SBTTL OPERATIONAL SWIT 
1587 3% 


ay 183 KT11 VECTOR ADDRESS 
zis 187 KT11 STATUS REGISTER ADDRESSES 
ize 194 KERNAL “I” PAGE DESCRIPTOR REGISTERS 
teu 20s KERNAL “I” PAGE ADDRESS REGISTERS 
ize c44 pee eee eset este e ttt ttt tet t tt ttt itt t itt ttttttt ttt ttt ttte 
1220 eet teste ttt tite t itt ttt ttt tttttttt ttt ttt es 
1552 3 
1553 DEC -DERPK¢ “MECHANICAL AND READ/WRITE TEST” 
1SSy : AOOPYR TIGHT ais nent 60 
ice? israel cme P 
1557 
1738 xPRoGRA BY J. LACEY/C. HESS/SUB MALLICK 
1560 ens PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 
13e4 ¥PACKAGE (MAINDEC-11-DZQAC-Ae2). 
1563 wl 
ime  SBTTL CONTROL SWITCH SETTINGS 
1566 ii SWITCH STATE USE 
1568 :# 1S 0 WRITE PACK BEFORE TESTING (TEST 16) 
1569 3% INHIBIT WRITING PACK BEFORE TESTING (TEST 16) 
1570 + # 14 NO STALL BETWEEN DRIVE FUNCTIONS 

| 1571 3% 1 STALL AFTER EVERY DRIVE FUNCTI 
157e Hf 13 0 USE SPECIFIC STALL TIME 
15873 3% 1 TALL 
1$74 3% l2 0 NO INCREMENTING STALL IN TEST 4 
1575 Hf 1 DO INCREMENTING STALL IN TEST 
1576 3% 8 0 DO IMPLIED SEEKS WITH DATA TRANSFERS 
1577 3% 1 DO EXPLICIT SEEKS BEFORE DATA TRANSFERS 
1578 3% 7 0 DO evet AND DATA” IN TESTS 0-6 
1579 3% 1 DO EXPLICIT SEEKS IN TESTS 0-6 
1580 3% 6 0 60 HZ 
1581 ot 1 50 HZ 
1582 3% 5 0 RUN WATCHDOG TITER 
tai 3% 1 INHIBIT WATCHDOG TIMER 
1585 

| CH SETTINGS 
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15-SEP-75 14:04 


Add-titde-tedtiddd-ied-t-t-t4tthbdd-tidideb bhi EEE EEE ES Ses E EES 
MEMORY MANAGEMENT DEFINITIONS 
SE SEE SEE TEESE SEE EEE EEE SEER EEE EEE SEER EEE EE EE 
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OPERATIONAL SWITCH SETTINGS 


DE'SPKC.P1l 


1588 
1589 
1530 
i2gs 


eqp 
1293 

1894 
1245 
i 
i 

| 

| 


eed ed eed eed ed eed eed eed ed Sd 

DRO ee IRR EERE S 
2 bs a ee 
WONCPU£§WwMUH-O 


oro 
aL amdanl 


DERESRReRoRNONSS 


1635 


Lieeniniannidtiieacnaniadbinins 


oo0000 


004154 
004244 
004144 
004234 


i SWITCH USE 
te 15 HALT ON ERROR 

t* 14 LOOP ON TEST 

:% 13 INHIBIT ERROR TYPEOUTS 

t* ll INHIBIT ITERATIONS 

3# 19 BELL ON LL ON ERR OR 

: S NT AGE ON NTER 

if : READ. ae ae, SETTINGS Fran TTY 

] 

* 5 Repo FOR CTEETS 13 8 14) 

% 4 REPORT OME ERROR (TEST R Sec 

:# 3 INHIBIT WRITE CHECKS (TEST 15) 

:% 2 INHIBIT READ AND SOFTWARE C OHPARES (TEST 15) 

2 x I INHIBIT SOFTWARE COMPARES (TEST 

* 0 PERFORM READ AFTER WRITE CHECK ERROR (TEST 15) 


-SBTTL TRAP CATCHER 


=0 
#ALL UNUSED LOCATIONS FROM 4 - 776 CONTAIN A ”.+2,HALT™ 
t #SEGUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 

LOCATION O CONTAINS O TO CATCH TMPROPERLY LOADED VECTORS 


-SBTTL STARTING ADDRESSES 
-=209 


;*200 = NORMAL STAR 
JMP DESTART! 

;#204 = SELECT OPERATING PARAMETERS 
MP @eSTARTe 

;#210 = SELECT witisners ADDRESSES 

;#214 = iad OF 204 AND 210 
MP SSTARTY 


-SBTTL BASIC DEFINITIONS 
AINE TIAL RRORESS OF THE STACK POINTER ### 1100 #%% 
-EQUIV EMT,ERROR ;;BASIC DEFINITION OF ERROR CALL 


-EQUIV TOT. SCOPE 3 ;BASIC DEFINITION OF SCOPE CALL 
17777 ;;PROCESSOR STATUS WORD 


EQUIV ps PSW 
STKLMT= 177774 ; STACK LIMIT REGISTER 
PIRG= 177778 : PROGRAM IN NTER T REQUEST REGISTER 
SWR= 17757 *:SWITCH REGISTE 
DISPLAY=SWR 
,¥GENERAL PURPOSE REGISTER DEFINITIONS 
RO= 40 sGENERAL REGISTER 
Ris %1 t ECENERAL REGISTER 


z re ;;GENERAL REGISTER 





ooo 
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C.P BASIC DEFINITIONS 
1644 03 R3= %3 ;;GENERAL REGISTER 
1545 900004 RY= “4 *:GENERAL REGISTER 
1646 p05 RS= 4S * GENERAL REGISTER 
1647 OCO00E Rb= 4 *:GENERAL REGISTER 
1648 000007 = “7 * GENERAL REGISTER 
1649 -EQUIV Rb, SP ::STACK POINTER 
1650 -EQUIV &7,PC ::PROGRAM COUNTER 
1652 -¥PRIORITY LEVEL DEFINITIONS 
1653 osoo0c0 PRo= 0 ; PRIORITY LEVEL O 
1654 990040 PRi= 40 :PRIORITY LEVEL 
1655 p00ic0 PRe= 100 PRIORITY LEVEL 2 
000140 PR3= —s«140 PRIORITY LEVEL 3 
1657 000200 PRY= 200 ;;PRIORITY LE 
000240 PRS= 40 PRIORITY LEVEL S 
1659 000300 RPb= 300 ::PRIORITY LEVEL 6 
1660 000340 = 340 ::PRIORITY LEVEL 7 
ibb2 -*"SWITCH REGISTER” SWITCH DEFINITIONS 
663 100000 Gwi5= 100000 
664 040000 Swi4¥= 40000 


BIT PSE INET IONS (BITOO TO BITS) 


00 
1675 000010 SwO3= 10 

16 009004 SWOz= 4 

16 poa002 SWOoi= 2 

1678 coooo! = | 

1679 “EQUIV SWO9,SW9 
1 “EQUIV SwO8’ Swe 
1681 “EQUIV SWO7,SW7 
1682 “EQUIV SWOb; SW6 
1683 -EQUIV SWOS, SWS 
1684 “EQUIV SWO4> SW4 
1685 “EQUIV 5W03)SW3 
1686 “EQUIV SwWO2, Swe 
1687 “EQUIV SWO1, SWI 
1688 “EQUIV SWOOD,SWO 
1689 

1690 :*DATA 

1691 100000 BITIS= 100 

1692 040000 BITI4= 49000 
1693 020000 BITi3= 20000 
1694 010000 BITl2= 10000 
1695 004 BIT] is 4000 
16% 002000 BIT10= 2000 
1697 001000 BITO9= 1000 
1698 000400 BITos= 400 
1699 p00200 BIT07= 200 
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i4-007 


7 
¥ 


MAK 


FEAC WRITE TEST” 


oO 
pam ] ow | op | os} O40 40 are oe 4b rar ere 
—7F US TU—-—MOMOMOWMMOonmw 


T) ##SCOPEs# 


-~O 


“TRAP” TRAP 


;TTY KEYBOARD VECTOR 
;TTY PRINTER VECTOR 


5 

2 65 
SE 
253 
3 bs 
& = 
pt eeese 


;PROGRAM INTERRUPT REQUEST VECTOR 


; TIME OUT AND OTHER ERRORS 


CO OINTMU—-O 
bb  b- eee 


S85 ssessss 


SS St a a 


“CPU” TRAP VECTOR ADDRESSES 


SOLELMSADRADRRPRED> POC esse sais 
peeeesiaaasaaadas Semmes Se wus 
Hit See Cte Sh S 


ee ce 


PUURRERRENS ERR CS 
: DODO) wh 6 bo hw 8 bw Oo Ow aw OIC we 
~ tf. ~O 0 0-0-0. IEE. -& aoe 


Se Ree ee De he ce ee oe oe oe oe ot oe ee ee ee or ee ee ee ee ee ee eee 


ee nn i mer re ae te emt en ee 


En Esa 
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15 DEFINITIONS 
1731 
12 LSBTTL MENORY MANAGEMENT DEFINITIONS 
178 ;#KTLL VECTOR ADDRESS 
1738 pooeso MNVECS 250 
1738 S#KTLL STATUS REGISTER ADDRESSES 
1759 177572 SRO= «177572 
174) 177674 Skis 177874 
i242 177576 SR2= «177876 
174s 172516 SR3= «172816 
17s S#KERNAL “I” PAGE DESCRIPTOR REGISTERS 
1747 172300 IPDRO= 172300 
i748 172302 KIPORI= 172302 
1749 172304 KIPDR2= 172309 
1759 175306 KIPORS= 172306 
175) 172310 KIPDRY= 172310 
1752 172312 KIPORS= 172312 
1753 172319 KIPDR6= 172314 
1754 175316 KIPDR7= 172316 
| 1758 S#KERNAL "I" PAGE ADDRESS REGISTERS 
| 3788 72340 KIPARO= 172340 
| 1789 17534 KIPARI= 172342 
| 1760 344 KIPARS= 172344 
| (1781 175346 KIPARS= 172346 
| 7762 175350 KIPORY= 175350 
| 1763 172352 K{PaRS= 172352 
| 1764 172364 KIPARB= 175364 
| ies 172386 KIPAR?= 172386 
| 


ee a a ee ee 







A 
S 


- 


GEMENT DEFINITIONS 
"6? OP CODE DEFINITIONS 
ie NOOP=101 


fn 
2 
me, 
5 
Fa 
Fa 


CR RES RRA RR Ad 


a 
BRBSBRSSesseeesseaas 


0—* 0-= b-< b+ & = 6+ b= 6-2 B= & + > & 2 & = B-— = b= 8 - pp Ho 
Fittest fet Att Ard et eee tates rt ot 
m 
~ 
Ww 
— 


;OTHER EQUATES 


b= + 0-2 9-2 02 92 0 -« 0 B- 2 & 2 B= & = §— & = 2 9 = §-~ 9-0 9-2 O-2 Has O-0 Ho 2 


Jassededanger 


165000 TRCKWC = -<256. #22. > ; WORD COUNT FOR TRACK 
77400 ° ;WORD COUNT FOR SECTOR 
éfoce PCT oan? :FORMAT 22 BIT 
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DERPKC.Pil MEMORY MANAGEMENT DEFINITIONS 











ive : LERAAL LAA LFLS LRA AA RSSSAELERAAAAKE RE RESERALERE SSAA RERELALAE FRESE 
1732 .SBTTL COMMON TAGS 
1738 s#THIS TABLE CONTA NS VARIOUS COMMON STORAGE LOCATIONS 
1801 ; 5 
1802 000046 246 
1603 oo004%6 015210 SENDAD ;;LOGICAL END OF PROGRAM 
1805 001100 21100 
1807 001190 ScHTAG: ;;START OF COMMON TAGS 
1808 001100 oooco0 Pass: . 0 ?:CONTAINS PASS COUNT 
1809 001102 000 STSTNM: .BYTE © CONTAINS THE TEST NUMBER 
1810 001103 000 SERFLG: .BYTE 0 : CONTAINS ERROR FLAG 
1811 001104 000000 SICNT: .WORD 0 s CONTAINS SUBTEST SAdERATION COUNT 
1813 001119 NeeE SLPERR: ‘HOR 0 contains RETURN FOR ERRORS 
1814 OOllle OO0000 SERTTL: . 0 >:CONTAINS TOTAL ERRORS DETECTED 
1815 001114 000 SITEMB: “BYTE 0 *:CONTAINS ITEM CONTROL BYTE 
1816 001115 001 SERMAX: . 1 *:CONTAINS MAX. ERRORS PER TEST 
1817 001116 oo0000 SERRPC: .WORD 0 s CONTAINS PC_OF LAST ERROR INSTRUCTION 
He Big Bone an ef eave SGA of 
1820 001124 o00000 SGDDAT: :WORD 0 >:CONTAINS ’GOOD’ DATA 
1821 001126 000000 SBDDAT: :WORD 0 : CONTAINS "BAD? DATA 
1822 001130 o00500 oone00 conDoD “WORD. 0,0,0 * RESERVED--NOT TO BE USED 
1Be3 0011 3 177560 TKS: 177560 ssTTy KBD STATUS 
Hie BUS ines fe ie a Bes BUS SE 
1827 001146 000 SHULL: .BYTE 0 23 NULL CHFRACTER FOR FILLS 
1828 001147 002 SFILLS: :BYTE 2 >:CONTAINS ® OF FILLER CHARACTERS REQUIRED 
i829 001150 Ole SFILLC: “BYTE le 3 T FILL CHARS. AFTER A “LINE FEED" 
1830 001151 STPFLG: . 0 He INAL AVAI! FLAG (BIT<O7>=0=YES) 
1831 001152 000000 SREGAD: :WORD 0 *:CONTAINS THE FROM 
1832 * WHT (SREGD) WAS OBTAINED 
1833 001154 oD0000 SREGO: .WORD 0 CONTAINS ((SREGAD) +0) 
ieee Bolles pope Secs: comp Op STE ONTRING. « Canecab oan 
1836 risetss 000000 Hi “WORD 0 FONTAINE {(SREGAD IE) 
1837 O01164 000000 SREGH: .WORD O js CONTAINS ((SREGAD) #10) 
— ae i I teater e ee 
1633 botiss pooooe Sica; toes 8 eT APPIN = 
1840 0117¢ STHPL: “WORD : USER DEFINED 
as strae a WORD ee 
ibis 001176 Srimee: 6 > MAX. OF ITERATIONS 
1eua DoLsbe Geyeo? 000377 Secreto erz cpo7>«a770<a77) LiBBoE FOR BAe 
Bue Bt S06 B05 : Asef 197 + OUEST ION 
184% 001207 01S SCRLF: ASCII <15> ::CARRIAGE RETURN 
1847 901219 Soroo8 sir “ASCIZ <1e> >?LINE FEED 
1649 001214 TEMP1: 0 
1850 001216 000000 TEMP2: 0 


~~ 
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DERPKC.P11 COMMON TAGS 
1851 001 TEMP3: 0 
1852 pees TEMPY: QO 
1853 001204 TEMPS: 0 
1854 001226 TENE: 
ie Bie ee 
1 124 TEMPIO: O 70270 39-1245 
1858 001236 LERADD: 177740 
1859 001 HERADD: 177742 
et i roe 7 
1868 001 CSUR: ; 0 sCONTROL SWITCHES 
1 ie 1656 CNTRLC: 2d 0 CONTROL =C* 
1864 001 bas 0 GET ADDRESSES F 4€ TTY FLAG (O=NO, -1=YES) 
1865 00154 00006 LPTAVL: -HORD : LPT AVA Erarus f Onno 1=YES) 
189 DOLSED METRES: “HORD 37777 RUN TESTE BIS, TING 
1868 001262 00000 CLKSTA: :WORD 0 sGLGCK STATUS, (Gano CLOCK, +1=KW11-P, 
1870 00126 go0qc9 TICKMS: .WORD {D16 716 MILLISECONDS PER CLOCK TICK 
1871 001 32 TICKUS: :WORD  ¢D1G666 16666 MIRCOSECONDS PER CLOCK TICK 
1675 DOLST> popeoD BKDRY: “libeD 8 DRIVE UNDER TEST 
1874 001274 o00000 DRVMSK: :WORD 0 :DRIVE MASK BI 
1875 001276 o00000 SVSTAT: .WORD O i STATUS R INDICATOR 1s 
1877 001300 op0000 CYL.RD: .WORD 0 “CYLINDER READ ~— 
1878 001302 90000 TRK.RD: .WORD : ?TRACK READ 
1Baa por ace err pe: “OED OO ET TARER DESIRED 
1881 001310 reer vk Be: “WORD =O SECTOR SIRED 
ee als fee rice: tae 8 nn THe 
1884 OBisis Oe nti ee 6 : S BELOW MIN. LIMIT 
188 1 “WORD > MAXTMUM OF THe : AK epi 
15 EELS BB coco 1B@ a ie 
ise ree TIM.ON: . 5 Pht fF 
1856 pos ON: ORD Nun ore BELOW MIN. LIMIT 
1892 O01 “HORD : Tre ny ee ABOVE MAX. LIMIT 
1833 001 ooo0000 “WORD 0,0 * TOTAL TIME OF 
1895 001350 TIM. PT: ‘HOR 0 ‘Porm To “Trae OF TIMES 
ie ies ate lmapee aegery me 
1898 001356 ooo000 . “HORD 5.0 rate SS (TST16) 
1900 CONSTANTS ST 
1301 001362 176700 RH. ADR: ioe T7700 sRHLLRPOS CONTROL AND STAT’ REC. #1 
1 001 4 00240 RHVEC: . 4. 5*32 *RHII/ VECTOR AND PRIORITY 
1903 001370 104 000106 PKV:  .WORD 104106 *KW1l-P VECTOR ADDRESS 
1908 001374 7eoi9 PKCS: .WORD 172540 *KW11-P CONTROL TATUS REG. 
1 001376 17254 PKB “WORD 172542 *KW11-P COUNT SET ER 
1906 001400 !72544 PKC: .WORD 172544 *KW11-P COUNTER 


j 
} 
i 
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BEAPRE CREE ERK CoN tans 
1907 oo1 oe 000100 900102 LKV:  .WORD 100 ioe sKML LL VECTOR BODRESS 
{ap BB 1ooaee bbe: HB HYD Sh TeROe rare - 
1910 177566 TPB: .WORD 177566 ;TTY PRINTER BUFFER 
19th 001414 177a18 LPS: .WORD 177514 iLI PRINTER TATUS 
1813 vate Mr OpiS Ere “HORD 4 ag 10 MILL TALL (TEST O-6) 
tai ca pots Starrs: “WORD tpto ty Hi aeeage fing TEST 13-16) 
1915 001424 B00031 MXSTAL: .WORD Des D IN TEST 4 
1316 001426 006 ERR.CT: .BYTE 6 F ERRORS ALL CHE TNT OnEoTS 13-16 
191 iEErORe Sb rhc T EST 
1918 001427 000 -BYTE 0 RESERVED 
185) 01430 1 BFE, MoE eD  Brto0 
tas 1432 renee : “HORD BITO] 
1923 001434 00004 -WORD BITO2 
1924 001436 000010 “WORD  BITO3 
1a5p rates een “ORD ot tbe 
1358 at 000100 “WORD  BITO6 
1928 001446 000200 ;WORD BITO7 
i ke ia te gs 
1931 001454 reared “WORD BIT10 
' 13932 001456 oo4000 “WORD BITI1 
|S aes toe Bs 
| 1935 BD es 40000 : 1114 
1936 001466 100000 “WORD BITIS 
a 
| 1939 “i aa iCONMON STORAGE FOR TEST PARAMETER 
; 1941 Blaze 000000 RPT: “HORD ;REPEAT COUNTS FOR ALL TESTS 
| FSIS Soldse BBpnon Fe: HOR OB iF IRST CYL INDE 
i Jeu4 taal reeerd IC: “ORD : > INC CYLINDER 
1945 001502 op0000 FT: “WORD 0 FIRST TRACK 
| 18 Bie Hie ‘feeerea 
13a 0 128 000% S: : A SA TRCT SecTOR 
| 1949 9001512 900000 LS: “WORD ; *LAST SECTOR 
| ie 001514 PAT: WORD sPATTERN CODE 
| 4952 -TABLE OF PARAMETER POINTERS 
| 1953 001516 002116 PRMPT: .WORD PRMO 
| feed bres? Bosse “HORD PRIME 
| 1966 O0I5EN o0s170 ORD PRN 
- | 001 ;WORD PRM 
| 4958 001530 bocce . PRNS 
| 4959 901532 “ PRM6 
: 1960 botes4 : PRM7 
| 1961 001536 “WORD  PRMIO 
«1962 001540 002276 “WORD  PRML1 


a en eens ee te * - - ——— 
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COMMON TAGS 


oO 
— 


-—\= 
ain 


88888 
HBses 


eS 


888888 
- = 
pre b= bs be fo fe be Bs Bo he 





RS 


04001 


Ros 


ae 


Crow oa 
a pe pee 
oO .£ruam 
oO 
- — . . . a . . 
er 
S onum-— 
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MESSAGES POINTER TABLE 


SPER EERE Uti oc RR NER ERARK.: 


O4 
D4 
04 
04 
04 
04 
04 
04 
oH 


ee ee ee ee een oe 


By 


;OFFLINE OR UNSAFE DRIVE REQUESTED 
; VE REQUESTED 


; I 

;PARITY OCCURRED 

SPATAL PERITY ERROR 

3 TIMEOUT ON THIS DRIVE 

3; SOFT TIMEOUT ON ANOTHER DRIVE 
;ERROR OCCURRED DURING I/0 OPERATION 
;ERROR OCCURRED DURING NON-I70 OPERATION 


; OCCURRED 
;AUTOMATIC RECALIBRATE SEQUENCE OCCURRED 


;DEFAULT VALUES OF TESTS PARAMETERS 
225,10.,410.,0,0 ;RECAL/SEEK (TO) 


677,100.,0,128.,0,0,0,0,0 ;SEEK/SEEK (T1) 


BBSRAEGREE 


620 
622 
Bee 
630 
632 
re 
640 
b42 
644 
646 
bee 
£70 
676 
704 


237,1,0,410.,1,0,0 ; INCREMENT SEEK (Te) 


S8888888 S8S8S8S8SS8E8S8 SSSS8SE88 8888 


~“ 
ome 


237,1,0,256.,1,0,0 ;STEPPING SEEK (T3) 


¢ 


- WORD 
- WORD 
- WORD 
- WORD 
- WORD 


237,1,0,410.,1,0,0 ;OSCILLATING SEEK (TY) 





Dae Par fb ee Boe f= es fae fr PS he Be 





SSSSsssss 
Bat Boe Gs fet § 8 Bt Gs Bt 
ONOWMEW-O 


eae 













3 
-_ 
wo 
*v 
8 = 
3 


CUI uber eee eerie inncinoininy tay 


SoS SSo CARE ORE ES 





2 Pe he ae fe fae fe Fae Fee 


20S FEASELH SFESSRERS KVNSS 





Gas has pee fae bee ee oe 





Bs bs 


| 
| 
| 
i 
| 
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-WORD 237,1,0,410.,1,0,0 ;CONVERGING/DIVERGING SEEK (TS) 
-WORD 237,1,0,410.,1,0,0 ;SERVO ADDRESSING LOGIC NOISE (T6) 


-WORD 223,1,0,0,0 ;ROTATIONAL SPEED TIMING TEST (T7) 


-WORD 1,1 ONE CYLINDER SEEK TIMING TEST, (T10) 

-WORD 1,1 ;AVERAGE SEEK TINING TEST (T11) 

:WORD 1°71 *MAXIMUM SEEK TIMEING TEST (Ti2) 
23,1,0,0 *SECTOR ADDRESSING TEST (T13) 

.WORD 203,1,0,0 ; TRACK ADDRESSING TEST (T14) 


-WORD 1777,1,0,410.,64.,0,18.,1,1,0,177777 ;DATA TEST (T1S) 


-WORD 7,20000.,0,410. ;EXERCISER (T16) 


;PARAMETER TABLES 
*RECAL/SEEK (TO) 
PRmo: =. 225 


WORD 
RPTO: .WORD 10. 
LCO: -WORD 410. 
FTO: WORD 
FSO: WORD 

:SEEK/SEEK (Tl) 
PRMI: .WORD 677 
RPTl: . 450. 
FCl: . 

LCl: ‘i 128. 
ICl: WORD O 
FTl: -WORD QO 
Tl: ‘ 

Si: .‘ 

LSI: : 

INCREMENT SEEK (T2) 
PRMC: .WORD 237 
RPTe:  .WORD } 
FCe: - WORD 
LCe: -WORD 410. 
Fos; “WORD 

paTEprine Se SEEK (T3) 
PRM3: .WORD 237 
RPT3: .WORD 1 
FC3: -WORD QO 











aaaee 9 
4 


jaf 
-— 


r 
} 


ae 8 Se 


= 
- 
T 


“ir 


pininiaiiitat tat ieteieteteteiatetatetatsictsintnintctctat tri teirirtedetedet det detetetcte 
OHTA TEE Mth Niet! Motel ah Wet et tet oh tbs ati tat ttt of DBE 
5 


Trorerofrorofurorornornorororururororerurururururororururururury 


peters 
<= 





pe 


—— 


= 


ee 
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Pll COMMON TAGS 


LC3: -WORD 256. 
IC3: -WORD 1 
FT3: -WORD Q 
FS3: -WORD O 


sOSCILLATING SEEK (T4) 
PRM4:  .WORD 237 
RPT4: WORD 

FC4: WORD 

LC4: -WORD 410. 
IC4: WORD 

FT4: WORD 


FS4: =. WORD O 
-CONVERGING/DIVERGING SEEK (TS) 
PRMS: BRD 237 


RPTS: .WORD 1 
FCS: -WORD QO 
LCS: WORD 410. 


ms 
Fis: “WORD 
FSS: ‘WORD 0 | 
jSERVO ADDRESSING LOGIC NOISE GENERATOR (TE) 


PRME: 237 
RPT6: .WORD 1 
FCB: . 0 
LCB: -WORD 410. 
ICb: -WORD 1 
FTé: #$.WORD O 
FSb: =. WORD O 
*ROTATIONAL SPEED TIMING TEST (17) 
PRN7: .WORD e223 
RPT7:  . WORD 

FC7: WORD 

FT7: WORD 


FS7?: WORD 5 
-ONE CYLINDER SEEK TIMING TEST (T10) 
PRMI WORD 1 


0: 
RPT10: .WORD 1 


“AVERAGE SEEK TIMING TEST (T11) 
PRMI1: .WORD 1 
RPT11: .WORD 


-MAXIMUM SEEK TIMING TEST (T12) 
PRMi2: .WORD 1 
RPTle: .WORD 1 


sSECTOR ADDRESSING TEST (713) 
PRMI3: .WORD 23 


‘HOR 
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Pt bo ho pe bs fs fp po ph pe 


rurururorurorurorururorurururururururururoururururororurfururorurururururforurufururururururururur 
SARA Saar oo a te ee ee et 
RRESHLSIIrIKaZIN-SSSVFEHESH SSHRC S55 SFKESSASSRS 


RATIOEC SLL -OERPK=£ mM Nala AND READ/WRITE TEST” 


COMMON T 





001777 


8 
Se 


ee See 


5 


ee 
bet ate 


is 


oS 3s 


p WO 2 
RPT14: .WO 1 
FC1I4: .WORD 9 
FSi4: .WO 0 
“DATA TEST (TIS) 
PRMIS: .WORD 1777 
RPTIS: .WORD 1 
FCIS: .WORD O 
LC1S: .WORD 410. 
IC1S: .WORD 64. 
rtie : 0 
ne > 18. 
TiS: .WORD 1 
FSi: . WORD 1 
behRis “HORD 177777 


“EXERCISER (T16) 
PRMI6: . ? 
RPT16: .WORD 20000. 
: . WORD O 
LCi6: .WORD 410. 
;SEEK TIMING LIMITS 
T7A: MSG7 


-WORD 1634. 
1700. 


55 


a & 


T10: 


Bee 
BS 


S55 5858 5558 58 5885 5 


Tll: 


at) 

B23 BS 
8 ee 

. oe a 


Tle: 


ae 
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;(16.67-2%) ¥#2 
* (16. 67+2%) ##2 


(16.67-2.5%) #%2 
(16.67+2.5%) #%2 


3 (7-4) #¥2 
3 (743) #2 


; (28-2)##2 4 
; (2842) 4x2 1 


an 


3 (S04) ex 
+ (50+2) xx 


; TABLE OF POINTERS WHICH POINT TO THE | 
sPATTERNS USED BY THE DATA TEST 
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187 
zie? OneWe gnaE 
2189 002446 002734 
a Bes if 
1g 3134 
2194 002460 003174 
cig foes heen 
] 
4 0024 ieee 
13 0024 003434 
a 
e203 002474 165555 
e204 o02e4 13e8 
sche Boss09 133332 
e207 002504 i. 
cote Oieeig lessee 
1 le 1 
2ell 002514 165555 
22le 002516 133333 
2213 Gusset 1 
2214 1 
gels OUe5e4 165555 
e21e Messe 130533 
esig O02eS32e 133333 
feel Giese fous 
f2ee Osea) GONt? 
e224 O002S44 000037 
feet Osea OONI77 
2228 002554 000777 
e2e93 002556 001777 
gost 002564 017777 
ee 
302570 077777 
2238 
e233 
2240 
cous 
e24 
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- WORD 


“WORD 
“WORD 
“WORD 
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WORD 
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“WORD 
“ORD 
“WORD 
- WORD 
. WORD 
; WORD 
“WORD 
* WORD 
“WORD 
“WORD 
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sPATTERN 0 


;PATTERN 1 


sPATTERN 2 
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2239 762 «WORD 1252 
300 Boers besese - WORD WOEse 


907417. PAT&: .WORD 007417 ;PATTERN 6 


026455 PAT?: gre 026455 ;PATTERN 7 


en anal pS phe 
uit wu 
eS pe et a 


Sinking 
RRRRAARRGNR 


-_ 
wn 
ba 


PATS:  .WORD isse5 ;PATTERN 8 


coomusrsccoocesd GOreRenUensTion RueeSe eee GS 


165555 

133333 “WORD 333 
Sau i533 “WORD 33 
5345 16585 -HORD 16585 
234S 132333 “WORD 165555 
2346 133333 “WORD 133333 
2347 165555 - WORD e555 
sau8 “WORD 16555 
a 165 “WORD 1655 
Be He See 
2353 165555 “WO 165555 
2354 33 “WORD 13333 
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sPATTERN § 
;PATTERN 10 
;PATTERN 11 
;PATTERN 12 
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;PATTERN 13 
sPATTERN 14 
;PATTERN 15 


OANA RGSS ERAGE LEE 


dd dO NE 8 ed ed eh a ee 


esussegeaes guasesseacsauges Sees PEEEEEEEE 


aR BEY REE 


oe ee coe oe ioe co eo eo eae hk nh 9 md et 
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DERPKC.Pil 
oc 


;0PB (DATA PARAMETER BLOCK) 


a) 
z 
] 
E 
& 


TERS ARE NOT SAVED. 
INDICATOR 


US 


TATUS/ERROR INDICATOR 


VE_NUMBER 


O--UM FT Otus—1- 


-BYTE 0 
-BYTE 
-BYTE 0 
-BYTE 
-WORD O 


SLE: 
Enea 


en nt nee ee ne em err eee 


$$ 903Si2 000090 





EOS 


MACY11 27(732) 





14-0CT-76 10:36 PAGE S7 


COMMON TAGS 


MAINDEC-11-DERPK-C “NECHANICAL AND READ/WRITE TEST” 


DERPKC.P11 


DRIVE NUMBER 


; INDICATE TYPE OF ERROR 


Cond 
2 
Qo 
& 
7 
oO 
ive) 
u 
cu 
ee 


4 
= 
z 
a4 
= 
z 
- 
wo 
it 


OFFSET VALUE OR FM 


COMMAND 


ee ee ee ee ee 


& 


: 
"4 
2 
3 
= 


4-BIT09 AND BITO6-B1TO3 


CATE TYPE OF ERROR 


New ete ge 


- 
0 
0 


-BYTE 


-BYTE 
- WORD 


zeae 
oO-umMs 


DTADPB: 


VALUE OR FMT22, ECT, AND HCI 


-WORD OQ 


bial 


;SAVE RH11/RPO4 REGISTERS HERE ON ERROR 


RP.REG: .WORD 


;RHCS1 (776700) CONTROL & STATUS #1 


;RHWC (776702) WORD COUNT 


= 
toh 


ee te en te el 


ans ee at ae ee tees ee mee a ene oes ee ee net eee emeree ns Sa 
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sRHBA (776704) BUS ADDRESS 
*RHDA (776706) DESIRED SECTOR/TRACK 
*RiicSe (776710) CONTROL & STATUS #2 
*RHDS1 (776712) DISK STATUS 
*RHER1 (776714) ERROR REG. #1 
*RHAS (776716) ATTENTION SLMMARY 
SRHDE (776052) DATA. BUFFER 
RHA ( 756} OAINTRTN ILITY 
sRHOT (776726) DRIVE TYPE 
: RHOF (358535) aereey 
sRHCA (776734) DESIRED CYLINDER 
sRHCE (776736) CURRENT CYLINDER 

R3 REG 


H 
wen f 5 


Epaphebee 


attattattatsat ad cadcatcat a 


02 0 bb 0 bo oe 
WONDWU£WwU-O 


FRI Se TS OR IRAE ER CRN R URN E Res 


003644 


lA em MA AND READ/WRITE TEST” 
DERPKC.P11 COMMON TAGS 
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5 SE gE AE EE EAE EER EEE EE RE EEE 
-SBTTL ERROR POINTER TABLE 
;#THIS TABLE CONTAINS THE neni FOR EACH ERROR My CAty OCCUR. 


Matalin a SiTEne. "Tale furee R INDICATES RICH Tren gn Th THE E TRBLE 1S PERTINENT. 





eo HE ONLY PERTINENT DATA_IS (SE 

; #NOTE2: each Ten N THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 
# EM ;;POINTS TO THE ERROR 

7% DH ;;POQINTS Y THE DATA HEADER 

;# OT ;;POINTS TO THE 

re OF ;;POINTS TO THE DATA FORMAT 

SERRTB 

3; #EM DH ARE ASCIZ MESSAGES, DT IS A STRING OF WORDS THAT POINT TO THE 
;#DATA_ TO BE T AND DF IS A STRING OF DATA THAT TELL HOW THE DT WORDS 

;#ARE TO BE T IF ANY OF THE POINTERS ARE NOT NEEDED FOR A PARTICULAR 


: RSOob ie ene Oe : 

;#EACH OF THE ITEMS BELOW REFER TO THE ERROR NUMBER AND INDICATE 
t#THE INFORMATION THAT WILL BE TYPED WHEN THE ERROR OCCURS. 
S#UNLESS STATED OTHER ALL NUMBERS ARE OCTAL 


;# ERROR ITEM 1 
ILLEGAL RH11(SC=O0) INTERRUPT OCCURRED 
TEST ERR PC 


STMPO 8 SERRPC 
EM! 
DH 


1 
OT 
DF 1 


;# ERROR_ITEM 2 
;# ILLEGAL RPOY INTERRUPT OCCURRED 
H test ERR PC DRIVE RHAS RHDS 





RHER1 RHER2 = RHER3 
SERRPC SREG1 SREGS RPERRS RPERRS#2 RPERRS+4 RPERRS+5 





;# ERROR ITEM 4 
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DERPKC. P11 ERROR POINTER TABLE 
2653 5%  MASSBUS PARITY ERROR (PAR=1) 
cy :® TEST ERR PC ADDRESS GDDATA BODATA 
58 :%  §TMPO SERRPC WRT.ADR WRT.WD RD.WRO 
Seen FOE Bupaee ay 
2659 903700 943420 OT4 
e660 044004 DFY | | 
Spee ;% ERROR ITEM S r 
e663 ;# OFFLINE, NONEXIS. Nt, OR. UN UNSAFE ORIVE INTERRUPTED 
Bees ty sFRpo RRP Rive RH Shees | App ERS BPERaseo BEERRSeY REE Ape R aces 
2667 003704 041014 ENS 
2668 003706 042143 DH2 
2669 003710 DT2 
e670 003712 043774 DF2 
278 s# ERROR ITEM 6 -- NOT USED 
2674 003714 00000 0 
2675 003716 00000 0 
2676 003720 OO00CO 0 
San Se . 
e679 :% ERROR ITEM 7 -- NOT USED 
2681 903724 000000 0 
2682 003726 O00000 
2683 003730 000000 0 
2684 003732 000000 0 
spe s# ERROR ITEM 10 
2687 :%  RH11/RPOY FAILED TO RESPOND TO ADDRESSING 
%  RHCS1 ERR PC 
2 3% RH.ADR SERRPC 
2691 003734 041077 EM10 
2692 003736 O42345 DHIO 
2693 003740 O434S2 DT10 
# 003742 O44O10 OF10 
cb ;% ERROR 
cee Ht Beive SELECTED IS NOT ONLINE 
2698 °# DRIVE ERR PC 
2699 %  §$REG2  SERRPC 
1351 M11 
as pe 7 
043456 Til 
a7 003752 O44014 OF 11 
2706 s# ERROR ITEM 12 
2707 ;# IMPROPER HEADER DATA 
'# TEST ERR PC TST PC ORIVE CYLNDR TRACK SECTOR 
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o 
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ERROR POINTER TABLE 


SERRPC ae cre ayes prea B OS . -DS 
"Behe Whe BEE Bho Wl BEE 
CYLNOR, TRACK, AND SECTOR ARE DECIMAL 
le 
le 
DTle 
OF le 
ERROR ITEM 
ATA C ter P 
EST Pal ek TPC DRIVE CYLNOR TRACK SECTOR 
STMPO TR! CYL.DS TRK.DS SEC.DS 
coer” RreDDAT GDADR 
$ BDDAT eC, SGDADR_ SBDADR 
CYL (CK, SECTOR, AND WROCNT DECIMAL 
EM13 
DH1 
DT13 
DF 13 
ERROR fir ae a OWS #13 
SREGY SGDADR SB8DADR 


VE CYLNOR TRACK SECTOR 
STMPO yennee SREGO CHKDRV gM BS od TRK.DS SEC.DS 


ee Bt Gee Ge Eee 
c ’ TRACK. SECTOR, AND NT ARE DECIMAL 
EM13 
DHle 
DT13 
DF 13 
ERROR ITE 


M {6 ~~ FOLLOWS #15 


SBDDAT SREGY SGDADR SBDADR 
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004024 041260 


Narita it ic PP RRP PRReh or chet intr eS SNR RRABAEE LEE. 
8 


Ne we ee ee et ee ee 


042617 
043544 
044044 
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* ERROR ITEM 20 Pe a 
% — CLOCK (KWI1-P) OVERFLOW IN TIMING TEST | 
* TEST ERR PC DRIVE RHCS1  RHOS RHER1 HER _-RHER ie 
%  STMPO SERRPC CHKDRV RP.REG RP.REG+I2 RP.REG+4 RP.REG+HO RP.REG+H2 


EMeO 
DH17 
DT17 
DF 17 


;# ERROR ITEM 21 | 
3% DATA COMPARE FAILURE 

3% TEST ERR PC TST PC DRIVE CYLNDOR TRACK 
H STMPO T BODE SREGO CHKDRV CYL.DS TRK.DS 
+ 
+ 


QYLINOR, TRACK, PROCNT, AND SECTOR ARE DECIMAL 


EM13 
DHe1 
OTel 
DFel 


;* ERROR ITEM 22--FOLLOWS #21 
3% SREG1 S$BDDAT SREGY SREGI 


ba 
DF 

+s LELLLLLLALLLLLLLALAALALELLLLALALAAREALALLLLL LAA LAL AAAAAEAALALALE 
5 tan the ia a enn 


Tere Sie UL ERROR” FY Wit 
ieee 7 WILL BE IN THE FORM: 


me ee a i reise” nusme 


) 
5) FATAL i tee DRIVE 

PS Uae a alt 
$y Ges BANE ick Po oeR 
1 


) UNSAFE OCCURRED 
1) AUTOMATIC RECALIBRATE SEQUENCE OCCURRED 


DEC DEK DOC BBC ORC Bic aRe RC BOC aRe Bee ee oe 2ec 
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eeee 004064 
282 


easiest 


wi 


Beeseae 


afta 


A 


RERRR REL Sc dic cai dit 


OO4CE4 
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ERROR POINTER TABLE 


ITEM 41 
BALL/RPOS ERROR (MESSAGE) 
RR PC TST PC 
STMPO SERRPC SREGO 


42 
RAIL /RPOY ERROR CPE SERGE ) RHDS 
G+10 RP.REG+12 


43 
ays ERROR (MES ) 
ERR PC PC DRIVE RHCS1 RHDS 
CHKDRV RP.REG RP.REG+10 RP.REG+12 


MPRHERI RHER2 RHER3 
RP.REG+14 RP.REG+40 RP.REG+42 


ITEM 44 
TT aa ERROR (MESSAGE) 
ERR PC Bion me DRIVE 


HDA 
RP.REG+10 RP.REG+12 RP.REG+36 RP.REG+34 RP.REG+06 


He OC WRC RC RC ORC aoc oe 2c 


. ° -REG+Y, 
CYLNDR, TRACK, AND SECTOR ARE DECIMAL 


(MESSAGE ) 
PC DRIVE CYLNDR TRACK 
C SREGO CHK ° RK.DS 


RS RHOS RHCC RHCA RHDA 
RP.REG+10 RP.REG+12 RP.REG+36 RP.REG+34 RP.REG+06 
RHER2 RHERS RHWC RHBA RHOB 





MAINDEC=11-DERPK-C_ “MECHANICAL AND READ/WRITE TEST” MACY11 27(732) i4-0CT-76 10:36 PAGE 64 
DERPKC.P11 ERROR POINTER TABLE ' 





% RP.REG+14  RP.REG+40 RP.REG+H42 RP.REG+2 RP.REG+4 RP.REG+22 
% CYLNDR, TRACK, AND SECTOR ARE DECIMAL 





EM41 
DHl2 
DT4S 
rye 
;* ERROR ITEM 46 
;# FATAL WRITE CHECK ERROR (MESSAGE) 
Hig Elwes Uo SU, GR Ta, Sta 
Hild sae: Wi ak ied ee 
+ RP.REG+10 RP.REG+12 RP.REG+36 RP. oo RP.REG+06 
epah 2 RP. BERL RP.REG+40_ _RP.REG+42 REM Recee RP.REG+4 RP ReG+22 
seas 3% CYLNDR, TRACK, AND SECTOR ARE DECIMAL 
2895 004134 041401 EM46 
2896 004136 03 DH12 
2897 tae 043722 DT4S 
2899 
2300 16=400 
2901 001000 A17=1000 


000114 PARE70=114 
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2903 
2904 .SBTTL START OF PROGRAM 
cape RE 
ene Oowly me 177777 001252 START3: MOV i 28BUSADR ;GET BUSADR FLAG 
ppated 35 001252 STARTI: BRR a EBUSAOR CLR BUSADR FLAG 
e310 04160 127 7777 001260 STRTIA: MOV #137777, TSTNMS ; SELECT TESTS O-15 AND 17 
ll 1 1250 CLR aHCNTRLO *NO CONTROL “C™ 
e312 004172 012700 o01650 MOV #OFLT,RO *DEFAULT PARAMETERS POINTER 
3! Oot Oie701 002116 MOV #PRMO?R1 ; TABL E POINTER 
14 101 MOV 1.R < 2ST 
2315 O04204 012021 ‘ 1S: MOV {nbs (R1)+ :MOVE DEFAULT PARAMETERS INTO 
2916 004206 Oe000e2 CMP *RUN TIME TABLES ** DONE? 
2317 O04210 103778 BLO > 3NO-=BRANCH 
2918 OO42l2 012700 003074 MOV a :PATO DEFAULTS TO PATTERN 8 
2919 O04216- 012701 O02474 MOV #PATO,R1 
2920 O04222 012021 2s: MOV (RO)+’ (R1)+ 
2921 004224 020027 003134 CMP RO, #PATS 
2922 004230 103774 BLO 
Sas0 rite Te 4 177777. 001252 STARTY: Bey #-1,,gROUSADR ;SET BUSADR FLAG 
2925 o04e42 ene BR TRt2A 
2926 OO04244 005027 o01252 START2: CLR 3 HEUSAOR sCLR BUSADR FLAG 
2927 2S0 012737 177777 001250 STRTCA: MOV #-1,d8CNTRLC  ;SET CONTROL “C” FLAG 
2928 256 000005 TART: RESET 
2329 004260 012737 O00340 177776 MOV #340, aePS LOCK OUT ALL INTERRUPTS 
3330 bovebe Oie70E 001100 MOV #SCMTAG, R6 tFiRST LOCATION TO BE CLEARED 
1 CLR (R6)+ }}CLEAR MEMORY LOCATION 
2932 004274 022706 001136 CMP wSTKS, Rb * > DONE? 
2933 004300 001374 BNE 35 LOOP BACK IF NO 
2934 004302 012706 001100 MOV SETUP THE STACK POINTER 
2935 004306 012737 020470 oD0020 MOV usTACK, SP D¥TOTVEC’ § -TOT VECTOR FOR SCOPE ROUTINE 
2936 O04314 012737 000340 o000ee2 MOV #40,9 aator 42 ;:CEVEL 
2937 004322 012737 015230 000030 MOV BENTVEC ent VECTOR FOR ERROR ROUTINE 
5233 Doss. bts737 feiaoy DODDS MOV cuaine vecve siCEVEL ¢ 
2°39 004336 012737 921004 O00034 MOV T {VECTOR FOR TRAP CALLS 
2940 004344 012737 000340 000036 MOV Pte ie 
2941 004352 001176 CLR si nee INIT TAL IZE NUMBER OF ITERATIONS 
2342 004356 1200 CLR S eCAPE >:CLEAR THE ESCAPE ON ERROR ADDRESS 
cauy nites TEE Tani vine HOW” Het ee raat I BF Tie LOE ADDRESS FOR SCOPE 
*9 9? 
2945 004 B155ay. rite seat MO #. 'SLPERR ON IP THE ERKOR LOOP ADDRESS 
Sau? bowie poshes tee 1s pais its VORIABLE STORAGE 
2948 00441 nega 001202 CMP #SBELL,RO *D 
2949 0044 O01 BNE 1$ iN == RANCH 
2950 0044 1 eu 001410 001144 MOV QeTPS,aeSTPB § ;SETUP THE STATUS AND BUFFER REG’S 
2951 OO4426 O1 001412 001144 MOV DeTPB,aeSTPB  3FOR THE TYPE ROUTINE 
2952 OO4434 063727 001250 0 ADD #CNTRLC, #0 *TYPE "ID" IF START AT 200 OR 
2953 oo4442 103433 BCS RTINT THE 1ST START AT 204 
2954 CO4444 104400 oD44s2 TYPE +4 3; TYPE aSCIZ STRING 
2955 OO44S0 000430 BR 4s T OVER THE ASCIZ 
gee we a -ASCIZ (15) <12>/MB211-DERPK-C "MECHANICAL & READ-WRITE” TEST/ 
2958 nite 004737 022340 SRTINT: JSR PC, J#LP. AVL ;CHECK FOR A LINE PRINTER 





toe ee ee ee eee . - 
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022026 
OO4SE0 


001214 


001256 


1S: CLR DRVSEL 


#1 Rt 
2s: TSTB  DRVSTACRO) 
BL 3$ 
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JSR PC, IUSTKINT TURN ON THE TTY K ¥BOARD INTERRUPT 

CLR aePs * INSURE THE PRIORITY = 0 
J SHHHHHHEH HEHEHE HEHEHE HHH HEHE HEHEHE HEBER 
HGH HEHH HEHEHE HEI GI IIIT II eae 
FP rittiti titi itiittititititi titi 
1 HHHBHGHHEAU HEHEHE HB HEHEHE HHH IE aes 
eritiiti ttt tte RC tte SC Ce eT ECC ee. CoS CSCC TLC CSS CSS Te Sere See ere eee 
eririi tit tt eee KEKE SE ~LRKERAAAAREAA KLEE KA ALARA KEKE AA REL EA EKL EEE 
Srrtiitiititittittti ttt tae tKA HF SHARE RRAAKRA KARA RELAE LE KKLLRAERERELEE 
Piitiitititiiiiitittit tt ttt. os -KEKKELAAARERAEKA REALL ELE LEK ARAFERELEEE 
Piritiiitiiiiiiiiiiitiiittt tte SERRE RASS LL RE RL ERK LAL EF RRS SRE SAK SE 


S PC, $SIZE 
TYPE 44 3; TYPE ASCIZ STRING 
BR big ‘GET OVER THE ASCIZ 
a 3.ASCIZ «15><12>/TOTAL MEMORY 7 
MOV —s SLSTBK, -(SP) 
ASR (SP) 
ASR (SP) 
ASR (SP) 
ASR =, (SP) 
ASR. (SP) 
INC (SP) 
MOV (SP), TEMP1 
ASR TEMP! 
BIC #100000, TEMP1 
ASR 1 
TYPDS 
TYPE +4 s;TYPE ASCIZ STRING 
BR 65$ GET OVER THE ASCIZ 
ss. ASCIZ /K/ 
65S: 


JSR PC, J8GETADR ;CHECK RHI1/RPO4Y (RHCS1) ADDRESS 
JSR PC; J8GETSWR CO CHECK FOR CONTROL SWITCHES 
JSR PC, JURPINIT SETUP DRIVE STATUS 

JSR PC’ NST. CLK INITIALIZE THE CLOCK 

MOV #9$ ERRVEC 

Sr ERADD 


MOV Wart Ty PARE70 
MOV #340, PARE7D+2 


1 
9S: MOV TEMP10 
i0$: MOV sTieOuT ERRVEC 


MOV #340, ERRVEC+2 
MOV #PARITY, PARE70 
ISI a CNTRLG ; CONTROL "C” START/RESTART? 


1$ *NO-= 
JSR FC, auGT. PRM *YES--GET PARAMETERS 
sNO DRIVES SELECTED 


CLR RO DETERMINE THE DRIVES THAT 
SARE AVAILABLE FOR TESTING 


ATABIT(RO) ,a#ORVSEL 








- 
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DERPKC.P11 START OF PROGRAM 
l c 2: INC RO 
l 10 j ASB 
me ws: BE Heres, gees 
ie Bpense neat BResee coie4s 20 : Mi aSW0S, a8C. SWR iD SEEK BEF zfs E DATA TRANSFER? 
81 Bostie pou0es 032222 = COM DBSEEKFG iv 
3023 005052 pio o0s060 ; TYPE +4 ss TYPE ASCIZ STRING 
30254 05056 AEoat BR é ;iGET OVER THE ASCiZ 
38 am am 33. ASCIZ <15><12>/DREVE(S) TO BE TESTED / 
3027 peels 905037 01512 " 9g @SSENDCT sDETERMINE PASSES TO MAKE AND 
3028 605116 oo5000 ECR RO j THe DRIVES TO BE TESTED 
3029 do5i20 13701 o01256 MOV JSORVSEL RI “ANY DRIVES SELECTED? 
3030 0051 101 BNE eg : YES-- 
3031 005126 104400 905134 TYPE +4 :: TYPE ASCIZ STRING 
Dx 905132 000403 5R ::GET OVER THE ASCIZ 
‘ 33-ASCIZ /NONE/ 
3034 005142 675: 
3035 O0S142 000137 014744 IMP aeSEOP :G0 TO END OF PROGRAM 
Dx 005146 1 6S: ASR RI *REPORT THE DRIVES TO BE TESTED 
0051 103013 BCC 7§ 
3038 005152 015126 INC DSSENDCT ;GIVE THIS DRIVE A PASS 
| 3039 005156 010046 MOV RO, -(SP) SAVE RO FOR TYPEOUT 
| 3040 005160 104404 TYPOS 366 TYPE--OCTAL ASCII 
| 2 Boies ie BE OO +O IPERESS TEADING ZEROS 
«BS SSIS on) fr AGE Daives? 
| 30u5 pre tee 1 005176 TYPE +4 i asetz STRING 
oe 005174 Ooo401 =. BR asciz” hes 37GET OVER THE ASCIZ 
: ees: °°” : 
| BONS 005200 ons200 78: Inc RO FORM DRIVE NUMBER 
| ey ppesng nied 015125 0:5120 &$: MOV JRSENDCT, D8SEDPCT 
| 2052 dosel2 005737 O00i262 TS sacl KSTA’ sKULI-B AVAILABLE 
en pet foes Boe7a7 003600 001260 ae #3600, a8TSTNMS tNOSC ANY TIHING TESTS TO BE PERFORMED? 
| 3055 001435 BEG TRTL be 
| 3056 905230 104409 005236 TYPE +4 pe ASCI STRING 
oes os +3 .ASCIZ 415><12> NO’ KWL1-P CLOCK--TEST 7-12 WILL NOT BE PERFORMED, 
| 3060 tossee 001272 RSTRT1: CLR sINIT. THE CHECK DRIVE KEY 
| 306 12737 OO0001 001274 MOV #1, ORVMSK >START TO CHECK DESIRED DRIVES 
see 005334 001274 001256 RSTRT2: BIT ,ORVSEL 31S THIS DRIVE SELECTED? 
| 3063 dos 42 1006 RSTRT3: BNE OK *YES--GO CHECK IF DRIVE IS READY FOR TESTING 
| 3064 901272 RESTART: I : TO NEXT DRIVE NUMBER 
| 3065 i 1274 ASLB *POSITION THE MASK 
| (3066 1037be BCS RSTR i : H IF THE ORIVE NUMBER NEEDS INITIALIZED 
| 3067 BR RSTRT 
| 3069 005360 013702 001272 DRVOK: MOV DSCHKDRV, Re sPICKUP THE DRIVE NUMBER 
| 3070 O05364 105762 O32242 TSTB  DRVSTA(R2) 1S DESIRED DRIVE ON-LINE? 
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DERPKC.Pil START OF PROGRAM 

3120 

slel -SETTL sees TESTS seee 

3l2e2 


SRN SE ZENS ZENG ORNS ZENE ZENG ZENG ZENS JBN S ZENE ZENS ZENS RNS ZENS ENE ZENS SENS ENS 
oN ZRNG ZRNS ZENG RNG CNG ZENS ZS ZN ZN S ZENS JBN SE ZRNS ZENS BNE ZRNS JENS SENS 
§ RNS ZN ARNG ZNSE ZENS ZRNS ZRNS ZENS ZENS ZBNS ZENS ZENS SRNE ZNSE ZENS BNE BSS ENG 


;#IN THE ged a ae OF THE BELOW TESTS THE VARIABLES USED 
;#AND THETR DEFAULT VALUES (UNLESS SPECIFIED OTHERWISE) ARE: 


| 
3% 
| j HHNENONIC VALUE VARIABLE 
3% 
2#R 1 ITERATIONS (REPEATS) 
24FC 0 FIRST CYLINDER ADDRESS 
| 2#LC 410 LAST CYLINDER ADDRESS 
2#IC : INCREMENT VALUE 
taNC OF NCL  —«- FC#IC NEW OR MODIFIED CYLINDER 
4 ADDRRESS 
*#NC2 Le-1¢ NEW OR MODIFIED CYLINDER 
| i ADDRESS 
:*FT 0 FIRST TRACK 
tat eee Ye et ase came 
:eNT FT+IT NEW OR MODIFIED TRACK ADDRESS 
24S 0 FIRST SECTOR ADDRESS 
2 #L 21 LAST SECTOR ADDRESS 


B/ ENE E NRA SNES SNES \E/ENE/E NB/ 5 NZ 5 NR 5 NZ 5 NB SNR SNR SNE SNR SNR SNE 


S 
NR 3 NB 2 NZS NZ 5 NR SNR 8 NR 5 NBS NZ SNR SNR SNR SNR 5 NBS NRE NB/ SNR NE 
\ 
oN SNR SNR SNR 5 NZ SNRs NZ SNR SN SNR SNR SNR SNR SNR SNR SNR NESS NE 


3155 
tty -SBTTL ##* SEEK TESTS (0-6) #e# 


g ZENS RNG JENS SENG ZENG ZENS RNG ZENG ZENS JENS ZENS JENS ZENS ZENG JENS JENS JENS JENS 
3 /EAS/EAS EAS BNS ZENG ZENS ZENS ZENG ZENG ZENG ZENS ZENS ZENS ZENS JENS JENS ALAR: 
2 /#\: J8N378N3 AENSAN: JENS JENS JENS JENS ZENS ZINS ZENS ZNG ZBNG ZENS ZENS JENS ZEN: 


; S WILL BE EXCUTED USING IMPLIED SEEKS. THESE 
HEIVPLIED SEECS MILL GE PERFORPED BV “REED HEAOER nO 

gl TO TRACK “FT” SECTOR “FS” OF THE THE DESIRED eaN OER. 
$ TTHE WORD COUNT. WILL GE SET SUCH THAT ONLY THE CYLINDER AND 


;#TRACK/SECTOR WORDS OF THE HEADER ARE READ. 


675 Ns NR SNS NZ 5 NZS NBR 5 NR 5 N95 N97 NZ 5 NBR 5 NR 5 NBS NESS 3 \B/ 2 \/ 3 \i/7 3 
} 5/3 \B/\8/ SNES SNES: \NB/ 5 N\8/ 3 N83 NES NE/EME/E\E/! N#/ 2 NZ 5 NR 5 NZ 5 NBS NBS NE 
i */3 N85 NBA 5 NZS NBA 5 NB 5 NR 5 NZ 8 NZ 5 NZ 8 NR 5s NZ 5 NR SNR 5 NZ SNR SNR SNR NE 


174 ; 1 HHH HHH HHH IHS 
3175 ; ¥TEST 0 RECAL/SEEK TEST 











TO RECAL/SEEK TEST 


ets Ma ag aa he ye. ah T0 peut a pt 


: THe COMPLETION OF Wee pot -corbets s7atUs g INDICATIONS ARE ARE 


THIS TEST WILL BE REPEATED 10 TIMES. 


eeweaes ence 


> P+ 6-=& = 6 <9 p> 


ne 5 


s LLLALSLELALLRELLLLLAALLLERLELLALALLLALALESLAERALLELLARLLALLLFAER 


tsToO 
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3 
3 
i 033737 001430 001260 BIT 9aBITS+<Ox2> , TSTINNS D0 THIS TEST? 
31 001 BNE 4 YES- “BRANCH 
3} 000137 006004 J ST1 =-GO TO THE NEXT TEST 
31 013737 002120 001176 64S: NOV SRPTO, STINES GET THE ITERATION COUNT 
3 Bige32 phar ee Bot ts8 HOV #TSTO gsi ;SETUP THE ERROR LOOP ADDRESS 
31 Ole737 000000 001102 MOV 80, ae$TST ;SET UP TEST NUMBE 
31 ‘CLEAR THE ERROR FLAG (SERFLG) 
31 013737 001108 477570 Mov STSTNM, Q8DISPLAY :LORD THe TEST NUMBER INTO THE DISPLAY REGISTER 
3} hee 002 19? eee MOVB aTFSO. stare B. B+ “16 iS 
31 113737 002124 003525 HOVE aeF10, 98088. Be B+] i FI 
3 Bisa l MOV ait, soevenee is TO EXITO ON ERROR 
31 012705 001100 TESTO: MOV ACK’ SP :SET UP STA ACK POINTER 
3200 ooHa37 24 JSR Hi AeA. Q GO EXECUTE THE COMMAND 
1 32 JSR RO, J8CALL.B 60 EXECUTE THE COMMAND 
3202 000004 EXITO: SCOPE LOOP 
3204 5 KELL LLLLLLELLLELLLLLLLLLLLL LALLA ELAS LALA LAE LE RLLELELLALELALLEE 
$20 "TEST 1 SEEK/SEEK TEST 
3207 5% THIS TEST WILL CAUSE THE DRIVE TO EXECUTE A FORWARD SEEK 
3208 : CYCLE TO "LC", “LT™ Ae “careCETT BY A REVE! SEEK ¢ CYCLE TO 
2 "FC" “FT@, "ES". AT ON OF EACH PROPER 
3210 = INDICATORS ARE EXAMINED TO INSURE PROPER OPERAT Tioh. 
3211 * “LC WILL AULT TO 128 Bnd “Fc*, "eT", LT", "FS", AND “LS” 
3212 = WILL DEFAUL 
| 3213 + THIS TEST WILL BE REPEATED 100 TIMES 
asi? «XESEELELELLE LEAL ELE REE RE SLES LEEKS SHE RLESERE SALE RESEEESLERE RABE ERE 
3216 OO6004 tST1: 
sel? OOe004 033737 001432 001260 be gpg TST ;D0 THIS TEST? 
1 3 1 ¢ Nao TO tue NEXT TEST 
| 533 preps 1 pets 001176 64S: MOV SBRPTL, STIMES bes HE SrERRTION COUNT 
| 3558 pbense biEra? SpeAas Bott OB HOY 4! te .2 ;SETUP THE LOOP ADDRESS 
| See3 Dosoie 018737 Ooo0o1 Dollz MOV eyoansts ihn ;SET UP TEST NUNBER AND 
3224 *CLEAR THE ERROR FLAG (SERFLG) 
| 3335 O060S0 013737 001102 177570 MOV TSTNM SD ISPLAY *LOAD THE TEST NUMBER INTO THE DISPLAY REGISTER 
| Be tes tie Bele eRe Sete ev it 
b0607¢ Liars bos te ; Hove SHFTL, guDPs- Belt | tH 
3555 Doeibe O13" ose MOV? Sak cT* Seppe: ae ibe 
| 3231 006114 013737 002136 00354 MOV DHLC1, a#DPB.C+le $LC 
| 








006144 001270 
0011 


Be i aie Mic ie oe Oe Oe 


ge 
eS 


ane Shse SONG SN 


-C “MECHANICAL AND READ/WRITE TEST” 
Tl /SEEK T 


we 


JSR 
SCOPE 
2 epeeeeeensnsssteereeteeeesesanzzannnnenneeeeeeeetssaasanene 


THIS rest WILL corer FORWARD SEEK CYCLES TO ADVANCE THE 


INSURE PROPER OPERATI 
\ ne cpaaacmaaaamsaacaaaia iemabeemamamnemnanted ts cet 


BIT 


eee 


36 3 96 9 9 9 9 9 9 9 A EE 
;#TEST 3 STEPPING SEEK TEST 


THIS TEST ul COMMAND SEEK CYCLES TO YLINOER 0,1,2,4 
16, 32, AND 256. AT THE COMPLET ON OF EACH SEEK 
aid INDICATORS ARE ONPLAING D TO INSURE PROPER 


; RRAELESLALLL ELLE LAELLELLARLELRE LEELA LLL AALARLAEAAALAERLRE LAER AE 





MOV 
MOV 
ISP 


SD Se aul NETRA atin 


"LE" 
Gna im “NC* Ree, 18 LESS THAN “FC™. AT THE COMPLET oN EACH 


Chis Sheee fie é 
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Paes See 
£3, Set s ;GO EYECUTE THE COMMOND 
0° SeCALL 'G0 EXECUTE THE COMMAND 












INCREMENT/SEEK TEST 











S rine ROM “FC™ TO “LC™ BY THE INCREMENT “IC”. 


GAL "NC" AND DECREMENT Tine BY * 
PROPER INDICATORS ARE EXAMINED TO 











OSB ITS+<282) , TST. 30 ;D0 THIS TEST? 
¢ 2 : 0 THE NEXT TEST 


aTESTe,aESLPAOR ~ THE ITERATION COUNT 






aTSt2.a ;SETUP THE ERROR LOOP ADDRESS 
82, a8$TSTNM SET UP TEST NUMBER AND 
>CLEAR THE ERROR FLAG (SERFLG) 
i we snore eed _ *LOAD THE TEST NUMBER INTO THE DISPLAY REGISTER 
#0PB.2 ut 


#0PB.B+i jet 
sexITS. SEBYPASS. ;40 TO EXIT2 ON ERROR 
aSTACK, SP ‘ iSET UP THE STACK POINTER 


SLC’ D8DPG.B+12 {OUT OF CYLINDERS? 
anes” :NO- 
aeLC2, ae0PB. B+12" 
RO, J8CALL.B GO EXECUTE THE COMMAND 
af OPE: - 
CSk’ : 
;LOOP 
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001260 


8888 
3 BSRs 


: 





TST3: 
 iepapae TSTNNE “eats S TEST? 
IMP TSTY *NO--GO_TO THE NEXT TEST 
64S: Hoy auReT3, » STINES *GET ore ITERATION COUNT 
MOV #TST3 ASSLPERR ;SETUP THE ERROR LOOP RODRESS 
MOV 83, a8STSTNM SET UP TES NUMBER. AND 
;CLEAR T Eenbe LAG (SERFLG) 
MOV STSTNN DeDISPLAY “LOAD THE re NUMBER INTO THE DISPLAY REGISTER 
MOVB $3, d80P8.B8+10 ; FS 
MOVB auras * aeDPB. B.Btll i 
MOV #EXITS, a88 ist TO BYPASS ON ERROR 
TEST3: MOV UP THE STACK 
MOV JeFC3, S8DPB.B+12 ; 3FC 
ISR RO, deCALL.B GO EXECUTE THE COMMAND 
MOV Ics Ri sCYLINDER 1 
18: MOV 1,a80PB.B+12 DESIRED CYL INDER 
JSR RO, J8CALL.B GO EXECUTE THE COMMAND 
ASL Ri sMOVE TO’NEXT CYLINDER 
CMP RI, asLC3 * DONE? 
BLE 1§ :NO=-LOOP 
EXIT3: SCOPE 
8 KLESHLELERSA KEKE LSE LLL RES ERRAL SAA EE SERA RE HKAS EARLE E AREAL SELL REARE 
taTEST 4 OSCILLATING SEEK TEST 
+ THIS TEST WILL CLES FROM “FC™ TO “NC™ AND BACK 
i FCT EN beets AT A INCREMENTS BY “IC™ UP TO CYLINDER 
+ rR By “Tem BACK TO CYLINDER “FC". AT THE 
2 COMPLETION be PEERY SPER COMMAND THE PROPER INDICATORS ARE 
* EXAMINED TO INSURE OPERATION. . 
Nigam in apammaat ats acacia sit eam tata acttanti: 
BIT QUBITS#<4H2>, » TSTNMS_;D0 THIS TEST? 
IMP TSTS 'NO--GO TO THE NEXT TEST 
64S: MOV QERPTY,STIMES GET THE ITERATION COUNT 
MOV TEST JeSLPADR 
MOV STST4,Q8SLPERR ;SETUP THE ERROR LOOP ADDRESS 
MOV #4, aaSTSTNM sSET UP TEST NUMBER AND 
CLEAR THE ERROR FLAG (SERFLG) 
MOV TSTNM, OaDISPLAY OAD THE TEST NUMBER INTO THE DISPLAY REGISTER 
Hove gE SM, gabes. Bri0 
eR axit ri, StevRSS mR EMR SIAL Su Fenee (NO STALL) 
tf Seuse, asc. SWR RED! } 
BEQ TESTY 
COM Wee-ecry SWITCH 
TEST4: MOV TACK, SP T UP THE STACK POINTER 
MOV aerc4 Ri TNC TOF acs 
CLR = aaeSTALL :3 ART AT ZERO IF STALLS REQUIRED FP 


1S: MOV RI, gROPB.B412 —;NC zt 
JSR RO, MNCALL.B ;GO EXECUTE THE COMMAND mae 
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DERPKC.P11 OSCILLATING SEEK TEST 
3344 o06624 005702 TST Re » STALL? 
14g BEQ 2$ :NO--BRANCH 
37 024144 ISR RO, JHSTALL *YES-GO TO STALL ROUTINE 
334 1 .WORD STALLO *TIME POINTER 
3348 137 oc2212 003526 2S: MOV FC4.g8DPB.B+12 :FC 
3349 006544 30 ISR RO, J#CALL.8 GO EXECUTE THE COMMAND 
3350 006650 905702 TST Re ;STALL? 
14 BEQ 3s *NO--BRANCH 
024144 JSR ASESTALL ?YES--GO ro. STALL ROUTINE 
1 .WORD  STALLO ‘TIME POINT 
3354 006662 005237 001354 INC aeSTALLO : UPDATE te PME 
3737 001424 001354 CMP JeMXSTAL, DeSTALLO 5 :TIME TO BIG? 
7 BGT 1$ 
76 001354 CLR daSTALLO *YES--START OVER AT ZERO 
3358 bob70e 05370 16 3S: aeIC4, RI sMOVE TO NEXT CYLINDER 
1 14 CMP R1, deLCc4 sLAS CYLINDER COMPLETED? 
3360 006712 1$ =-BRANCH 
3361 006714 O1 002214 MOV JeLC4, RI eT NC TO LC 
O06 10137 903526 4§: MOV R1,aeOPB.B+12 =; 
O06 004037 023032 JSR RO, J#CALL.B GO EXECUTE THE COMMAND 
3364 006730 005702 TST Re ;STALL? 
3365 006 l BEQ S$ :NO--BRANCH 
$356 006 024144 JSR RO, JeSTALL ?YES--GO TO STALL ROUTINE 
006740 001364 .WORD STALLO :TIME POINTER 
3368 742 013737 O02214 003526 SS: MOV JsLC4, A8DPB.B+12 ; 
3369 750 004037 Oe3032 JSR RO, a#CALL.B :GO EXECUTE THE COMMAND 
3370 006754 TST R2 STALL? 
371 006 14 BEQ 6S ;NO--BRANCH 
006 024144 JSR RO, O8STALL *YES--GO TO STALL ROUTINE 
3373 006764 001354 .WORD  STALLO > TIME POINTER 
3374 006 005237 001354 INC JeSTALLO “UPDATE STALL TIME 
3375 O06 Ge37 30 Ooite4 O0i3S4 cir SEFXSTAL, »TASTALLG - TIME To9 BIG? 
007002 005037 001354 CLR JSSTALLO ?YES--SET STALL TIME BACK TO ZERO 
3378 007006 163701 O0e216 6S: SUB asIC4. Ri *NEXT CYLINDER 
3379 007012 020137 OOecle CMP R1, ae C4 * DONE? 
3380 bo7016 002373 BGE ;NO--BRANCH 
1 000004 EXIT4: SCOPE * LOOP 
3383 ; LLLLLAELALLLLELE RELA SLE LLLLLLALLALLLLLL ELE LLL ELLE LLAELA ELA LELES 
3384 *#TEST 5 CONVERING/DIVERGING SEEK TEST 
3386 i# THIS TEST WILL CAUSE THE RIVE TO EXECUTE FORWARD ee ine RSE at = 
3388 2% aoe Seat AND "hee MILL GE DEGREFENTED 8 BY “Tee NCI" IS 
3389 2 GREATER THAN THE NETTAL va OF “NCe" 
a Ps Be Cea BU tihng bees « 
3392 te NSURE PROPER OPERA “NCI” AND AnD neo” BEF ALT T TO 
3393 + “EC” AND “LC” SPERECTIVELY, 
32 one © EXEREEEY SLES EY SELES ESSE SEEKERS SES EES RES EEL EUS SERS LER MELE RAR KEE 
001442 001260 IT DNBITS+<S#2>, TSTNMS ;D0 THIS TEST? 
3330 ae GOLGbe BNE Oba Pe 
3399 000137 IMP 1 *NO--GO TO THE NEXT TEST 











DERPKC.Pil 


eH 





Seannes 







00 
007060 
007065 
Bort 
BOP110 
Be eis 
3411 0071 
ails 007132 
13 007136 
3414 007142 
3415 007146 
3416 00715e 
3417 oles 
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64S: MOV DeRPTS, Sra GET THE ITERATION COUNT 
| MOV aTESTS, 
MOV #SL. BRR sSETUP THE E ERROR LOOP ADDRESS 
MOV s STS ,088F T UP TEST NUMBER AND 
tee ok THE ERROR FLAG (SERF 
MOV STSTNM, UDISPLAY "LOAD THE TEST NUMBER INTO ae DISPLAY REGISTER 
ma Speedie BI? iF 
MO 
MOV 1 SEBYPASS ; 0 To EXITS ON ERROR 
TESTS: MOV parse 
MOV srceel” sSTART NC1 AT FC 
MOV #LC5. Re ‘START NC2 AT LC 
1S: MOV R1, a#OPB.B+12 INCL 
JSR RO, J#CALL.B GO EXECUTE THE COMMAND 
MOV Re; a#0PB.B+12 ;NC2 
JSR RO, J#CALL.B GO EXECUTE THE COMMAND 
ADD aeics,R NEXT NCL 
SUB asICs NEXT NC2 
CMP R1, a8LCsS > DONE? 
BGT ExtTs : YES--BRANCH 
CMP Re, aeFCS 3? 
BGE 1§ :NO--BRANCH 
EXITS: SCOPE +L 
5 FELLAALLLALALALELELLLLLALLLLLLELELLLLLALAELELALL ELLE LELARSLAELEE 
t#TEST 6 SERVO ADDRESSING LOGIC NOISE GENERATOR 
s% IN THIS TEST A SEEK I NE TO cy "NC" THEN A SEEK TO 
:# NC+4 THEN NCtL THEN IN NC+5. NOW “NC” IS UPDATED 
2% BY “IC™ AND SEauence a ATED UNITL “LC™ IS 
i EXCEEDED BY YAY OF Ae THE INITIAL 7 VeLue OF “NC” 
ie achat SHELETION OF Fea “ i EBC core PROPER OPERATION. 
ee ee ees 
BIT DeBITS+<6*2>,TSTNMS ;DO THIS TEST? 
BNE 4§ s YES--BRENCH 
IMP S17 *NO--GO TO THE NEXT TEST 
64S: HOV SaRPTE, TIMES *GET THE ITERATION COUNT 
MOV ust RR ;SETUP T 
MOV sie tt sip iPERR : veer UP OP TES NUnGER 
THE ERROR FLAG (SERFLG) 
MOV iene JeDISPLAY TOAD THE TEST NUMBER INTO THE DISPLAY REGISTER 
me terete Bit i 
MOV exes 4 bo, TO op Stock ON 
TEST&: MOV SSTACK: SP 
MOV QeFC, RI tBICKUP = FC™ 
MOV JSLCb,Re sFORM LAST CYLINDER THAT 
SUB a5 Re 51S AVAILABLE FOR TESTING 
1S: CMP Ri sLAST | CYLINDER 
BGT exiTé :YES- 
MOV 1,080PB.B+12  :NC 
JSR RO, a#CALL.B GO EXECUTE THE COMMAND 


TEST” 
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DERPKC. T6 SERVO ADDRESSING LOGIC NOISE GENERATOR 


" 
ied 

SR 
ADD 
JSR 
e 
f 
JSR 
ADD 


BR 
SCOPE 


JO6 


MACYL1 27(732) 


#4, apa B+le 


L.B 
“baie 
fo of ALL. 


ae, ga0Pe E “ael2 
#1, 080PB.B+12 


it Sis Bele 


aetees RL” 
1$ 





;LOOP 


sNC+4 
sNC+1 
sNC+3 
;NC+2 
sNC+S 
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;G0 EXECUTE THE COMMAND 
;GO EXECUTE THE COMMAND 
;GO0 EXECUTE THE COMMAND 
;GO EXECUTE THE COMMAND 
;GO EXECUTE THE COMMAND 
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3469 
3470 
3471 






-SBTTL ##% TIMING TESTS (7-12) ##* 






5 7RS SENG ZENS ZENS ZENG ZENS ZENS ZING ZBNS ZENS ZENS ZENS ZENS ZENS ZENS JENS ENS ENS 
SENSING JENS ZENS ZENS ZENS ZENS ZENS ZENS ZENS ZENS ZENS ZENS JENS ZENS JENS JENS JENS 
3/#\3 TENS ZANE ZENS ZENS ZENS ZENS ZENS ZENS TENS ZENS ZINE ZENS ZENS ZENS ENS ZENER 


; THE TIM Ne T ath WiLL INSURE THAT THOSE FUNCTIONS BEING 
eth 7 HE TOLERANCES SPECIFIED IN THE “RPOY 
REERING. SPEC CAT] IONS”. 


*THE aK TIMING WILL BE PERFORMED USING EXPLICIT SEEK 
TIONS. AY THE COMPLETION OF EACH OF THE TIM ING 
TESTS THE MINIMUM, MAXIMUM AND AVERAGE TIMES WILL BE 







B/ENRZ ENB ENR SNES ENR ENR ENR ENE SNES ENE ENR SNES ENS ENES SNES ENE ENE 
HA ENR ENR ENR SNES ENE ENB ENB ENR E NER ENB SE NRE NESE NES ENE ENB NES ENE 
B/E NESENRA ENR ENR SNES ENR ENR SNES ENR SNR ENR ENR ENE ENE ENB ENE SNE 


ee ee se 
444 





HHBHBHHHEBEHHEHBHHEHE HEHEHE HEHE HEHE HE HEE 
S#TEST 7 ROTATIONAL SPEED TIMING TEST 


THIS TEST WILL START A SEARCH TO CYLINDER 0, TRACK O, SECTOR 
0. AS SOON AS THE INTERRUPT OCCURS, THE GO BIT IS SET AGAIN 
AND THE OPERATION IS TIMED. THIS PROCEDURE IS REPEATED 10 
TIMES THE AVERAGE TIME IS CALCULATED AND CHECKED TO 
INSURE IT IS WITHIN T 
16.67 MS/REV + OR - 2% IF GOHZ 
6.67 MS/REV + OR - 2.5% IF SOHZ. 


s LELLLLLELALELLLLLLLL LALA LLL LALLA LALALELELE RA LLLE LALA LELLLLLLLE 


3 EC ORC DOC ie oc oc 


SOAR RC ORR SR aRREEREOS 












007422 tST?: : 
007422 033737 O01446 001260 BIT QeBITS+<7#2>, TSTNMS ;DO THIS TEST? 
007430 00100e BNE 64S *'" s YES=-BRANCH 
z B37 eee 001176 64S MOV D#RPT7, STINE i OeT * a MEN Con 
aed ot pocees 001106 HOV aTST?, StsL Pen s SETUP T SC LOOP BODRESS 
ut e ADDRE 
ata Bt533, 001102 MOV 17, S17 ,gaSLPERR ' SET UP TESt NUMBER AND 
3210 1 1102 177570 MOV STSTNM #DISPLAY ir THE Theol hUrBER ino the DISPLAY REGISTER 
ie 
3213 iat eet ners TST LKSt; sKWl ~p itbck 
3513 007500 003002 BGT _ i VESe-START Test 
3514 go7ece 000137 o1014e IMP TSTIO *NO--GO TO NEXT TEST 
3515 02441 1S: JSR RO, a#SRCHOO *DO A MASSBUS INIT 8 RECAL 
3516 007512 00040 BR *RETURN HERE IF NO ERROR 
sel 1 BR 117 *RETURN HERE IF ERROR 
18 6 Ol MOV #FC7,RHCA(RY) FC 
3519 pov 013746 MOV aeFS7,-(SP) iS 
es Hae tee ca a 
soel 1 MOV (SP)+ (RY) LOAD FIVFS 
12737 #EXIT?, *sESCAPE TO EXIT7 ON ERROR 
3523 007550 O0S00S RS sCOUNT 
2524 007552 012703 : PARAMETERS 








SESE 


5 


: 


Sona 


- 
- 
> 

T 


pt be pe 
£MVo 


scar cena vioeena corn 


ae bee bs Bes Fd Re ee be Pe be ee ee 


RR 
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O01E4%6 


71554 
2540 
171540 


171524 
2 


171352 
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#SWO6,d#C.SWR  ;60 HZ? 


TEST? + YES--BRANCH 
#178, R3 *NO--50 HZ PARAMETERS 
asTACk sp SETUP STACK 

?D10, Rl : 1 SEARCHES 

om a aSTRTMR S INITIALIZE THE TIMERS 


: SETUP y CTOR IN CASE OF OVERFLOW 
sooeti, 9 1, JRPVEC ip R 04 VECTOR 


#101, aPKCS ISTOP 
aerTl4, RHDS1 (R4) " > ERROR? 


CA RO-RS 
#DTADPB, Re :DPB POINTER. 
PC, J#SVRHI1 SAVE ALL RH11/RPO4 REGISTERS 
#BIT05, RHCS2(R4)’ = MAS CLEAR 
SEDTAOPEY RHCS2(R43 :SELECT DRIVE 
- sRESTORE RO-RS 


START Ti AT ZERO 
oeeBRCH (R4) 3START wre count = 
#131, aPKCS j START THE CLOCK 


: NTERRUPT 
#101, 9PKCS :ST Ne bee 
se1Th4, RHDSI(R4) : 1S “ERR=1"? 
3$ ;NO--BRANCH 
ADPB, R2 I BON PETITER 
SFB dec Scene EM RECITES 
BSDTADPB,RHCS2(R4) -SELECT DRIVE 
sRESTORE RO-RS 
*DISK ERROR OCCURRED 
PC, J8COUNT UPDATE THE COUNT 
R * DONE? 
1 :NO--BRANCH 
EXIT7 *YES--GO TO THE EXIT 
$101, 9PKCS *STOP THE CLOCK 
aePs' i DROP THE PRIORITY 
(SP)+,RO PC OF WAIT+ 
(SP)+ :POP THE FS FROM THE STACK 
#DTADPB, Re + BPBe POINTER 
Een E cow foEsene ERM" ecsTEN 
DeOTADPB,RHCS2(R45 :SELECT DRIVE 
RESTORE RO-RS 
20 CLOCK OVERFLOWED 
#BITOS.RHCS2(R4) ;MASSBUS INIT 
DeDTADPB,RHCS2(R43 ;SELECT 
PC. a4ST. CLK sINITIALIZE THE CLOCK 
#I5R, JRPVEC ;RESTORE RH11/RPO4 INT. VECTOR 














BBanne 


RRRRRRKRKK 
OOOOOOOOOOOOOOOOO00O00000 G0000000 


ss ee 
WONMUCW-O 


RR SER CBRN UR TENOR 
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000100 001246 


DERPKC.P11 


8 
= 


8 
4 


Ep Sxewaase 
= Seem 
ay dase 


5 


5 


a 
N 


2 


Sees 


Pe me 8 Be ee Bee hee Fe he ee ee Fm Bt sf Bm fe Be Be fe ee B+ hs fs bo fe fs f= pee 


BSSRURSS ENGR OBSROND 


IE He DEC Oe Dic ie Dic ik ee 
4 


7 ay anes senate inate iliadnime sie ecratintigs tga ou 62 Er: 


64S: 


TEST10: 





NING TEST ‘ 


islect 10” OME CYLINDER SEEK TIMING lecr’ 


GET THE I ION COUNT 
MOV sTSTIO, ieee :SETUP THE SCOPE LOOP ADDRESS 
MOV aT Ti0; Ff a | : SETUP Wy : OOP ADDRESS 
MOV , aeSTSTNM UP TEST NUMBER 

“CLEAR THE ERROR FLAG (SERFLG) 

MOV ae QUDISPLAY ‘LOAD THE TEST NUMBER INTO thie DISPLAY REGISTER 
TST aacLKStA KW11-P GLOCK? 
BGT 1 iYES--START TEST 
IMP TST11 *NO--GO TO NEXT TEST 
JSR RO, J#SRCHOO ?DO A MASSBUS INIT. AND RECAL 
BR 2S ;NO_ERROR RETURN 
BR EXIT10 }ERROR RETURN=-SCOPE LOOP CALL 
Noy teagtia SESCAPE Pee cae ee ee TiG ON ERROR 
MOV #STACK ESCAPE 10, 
MOV #1,a8DTADPB+12 ;START WITH CYLINDER 
CLR RS jSET THE Ups DOWN oF TeH TO UP 
J PC, J¥STRTMR INITIALIZE THE TIMERS 
MOV #7$, OPKV :SETUP INCASE OF OVERFLOW 
MOV #DORTI, IRPVEC ge R VECTOR 
CLR HE COUNTER AT ZERO 
MOV OND TADPB+12, rucalay) T ORD DESIRED CYLINDER 
MOV #SEEK, (RY) -START A SEEK 
MOV #131, aPKCS START THE CLOCK 
WAIT jHALT ON INTERRUPT 
BIC #101, 3PKCS *STOP THE CLOCK 
BIT sa1T14, RHDS1(R4) ae DISK ERRORS? 
SAVREG : SAVE ROeRe 
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BiT #SWO, J8C. SUR 360 HZ? 

BNE 1$ ;NO == BRANCH 
YS RO, @ATYPTIN TYPE THE TIMES % 
BR TST10 iG GO TO NEXT TEST 

JSR RO, NTYPTIM GO TYPE THE TIMES 

T7B : POINTER 







ONE CYLINDER SEEK TIMING TEST 


THIS TEST WILL COMMAND FORWARD SEEK CYCLES TO ADVANCE THE 
CYLINDER BY ONE UNTIL THE INCREMENT i5 Gee TER THAN THE 
ord 4 CYLINDERS ocr ee ey 6 N REVERSE SEEK 





EXCEED THE MAXIMUM TIME PERMIT ED FOR A ONE CYLINDER SEEK. 
THE TIME MUST BE LESS THAN 1OMS BUT GREATER THAN 3MS. 





O#BITS+<10#2>, TSTNMS ;D0 THIS TEST? 
oa , ; YES--BRANCH 


JMP th ns :NO--GO TO THE NEXT TEST 
MOV SRP 0,5 TERAT 





arenes 


BUR RRR ES ests 


R 
< 


OOOO OOOOOO GOO OOOO OOOOOO00O0O000000000 
-_— 


bb fb pb bb bb bb be fe bh th be bs ps 2 pe hs 9 pe 


Rau sRORON 


OO sRad 


000040 
003554 


737 O24646 
37 Oc4226 


003566 
003566 
177777 


337 003566 
003566 


000101 
177776 


000010 
000010 


000632 


000000 


170710 


000010 
000010 
000010 


000010 
021604 





ee pit “DERPK-C “MECHANICAL AND READ/WRITE TEST" 
T10 ONE CYLINDER SEEK TIMING TEST 


es: 


3$: 


4$; 


7$: 


ERRO 
EXIT1O: 
MO 


5 HEE HEHE SEE IESE SEAR SE SESE HEHE SESE SE HE SEE ESE SEE SEES HEME EEE EEE EERE REE 
;¥TEST 11 AVERAGE SEEK TIMING TEST 


# 
5% 
.# 
5% 
$ 
5% 


isti 
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#SVRHI1 AVE an The aftii/RPOH REGISTERS 
astine Bera)’ 
aD TADPB, RHCS2(RM} SELECT BETCE 

RESTORE RO-RS 


_ 
N 


‘REPORT THE ERROR 
:COUNT THIS SEEKS TIME 
a FOR x MILLISECONDS 
#DTADPB+12 MOVE TO 
SHDTADPE 12, erosioes OUT OF CYL 
*NO--GO DO THE Ney XT SEEK 
_}SET UP/DOWN SWITCH TO DOWN 
?GO DO THE NEXT SEEK 
#D a B+12 
JD TADPB+12, #0 


OP THE 
‘DROP THE PRIORITY 
Pop THE Pg "From THE STACK 
ane A. 


a "ie RH11/RPOY REGISTERS 

aeDTADPB, allt feo DRIVE 
sRESTORE RO-R 

*REPORT CLOCK OVERFLOW 


oh 

| Seer THE CLOCK 

STORE RHL1/RPOY INT. VECTOR 
TYPE THE TIMES 


T WILL COMMAND A FORWARD SEEK FROM CYLINDER 9 TO 

3, re A REVERSE SEEK FROM ove 136 T 
meet SEEKS ARE TIMED AND CHECKED T Y 

FOR THE AVERAGE SEEK TIME. 

ERUENCE TS REPEATED 1e8 TIMES (FOR A TOTAL 

THE AVERAGE SEEK TIME IS 28 MS + OR - eMS. 


7 cree amenmmemrmmememaae 
O#BITS+<11#2>,TSTNMS ;00 mas TEST? 

2. ; 3; YES~ “BRANCH 

ae 3 THE NEXT Me 

"SCOPE LOOP ADDRESS 


,ONSLPADR ; SETUP 
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0614 012737 010564 091110 MoV STST11, O8S$LPERR ;SETUP THE ERROR LOOP ADORESS 
le73? 900011 00110e MOV #11, ae$TSTNM -SET UP TEST 


—- <b 


; NUMBER AND 
SCLEAR THE ERROR FLAG (SERFLG) 


3693 9 
3694 010622 
3695 
? 1 177570 MOV STSTNM, SHDISPLAY LOAD THE TEST NUMEER INTO THE DISPLAY REGISTER 
Se RSS Gere Gilets Tat getuisth  srult-b hock 
3633 10644 See 11264 Imp 8s TST12 :NO=-GO TO NEXT TEST 
bivesd BGs? 16 1$: JSR RO, JSSRCHDO 200 A MASSBUS INIT & RECAL 
ce ties peel Bir erum tee Oe 
3704 He 1geus BORE coreo0 °8 FRY BELTED sescape StEScOBeT tO EATTET OW ERROR 
305 Bigete Olsroe Obl i08 TESTI: MOV —-BSTACK, SP {SETUP STACK ; 
3707 site piseoh Be He INI AT Ae oon ‘weber: 
3708 Ol b12777 011156 170454 MOV 37$ :SET UP VECTOR IN CASE OF OVERFLOW 
3709 010714 O1 021440 MOV SDORTI,ORPVEC SETUP VECTOR 
| Bi Bigzee Gere Goteio oom "Ra blaeymncma) Erte 
12 Ol 1 I MOV SEEK, RHCSI(R4) :START A SEEK 
3713 p1074e 1 000131 170424 MOV $131, aPKCS >START THE CLOCK 
ie pitreo BuSooL 900101 170414 Bre at01 aeKcs itp ook 
37ig b10760 4 Q40000 12 BIT Sa1t1a, RADSICRY) sERR=L? 
| 3717 01 BBi4 is er} ;f0--BRANCH 
og Oe eas Sov.” gD TADPB. Re BON POINTER 
| 333 Bae 16708 hea ISR PC, d8SVRHI1 + OOre ALL THE RH11/RPOY REGISTERS 
| Be RG Glee GES ERB SbnmsonceSltai WEP “hae 
ye Hie ioe | enlirasstatt stele 
| 5p Bi ines ate G24645 SEO secon Pe nate tee count OP 
| 372? ste 024226 JSR. PC. asTWOMS >STALL FOR 2 MILLISECONDS 
| ee Sito fe i7o338  op0034 ay ori ace) IWOOT ERO 
| 3730 O16 1e764 9001 MOV SSEEK RHCSI(R4Y) 3START A 
ee alias ier 000131 170312 HOV $131, aPKCS i STAR ont ibOek, P 
70 IC #101, aPKCS °STOP THE CLOC 
| 3734 Sis Gae7es By0000 000013 BIT aBITIS, RHGSICRY)SoRReL? 
| 373 O11 1415 BEQ 3 -BRANCH 
7% 11106 104416 SAVREG * RO-RS 
11 te7se ggssss MOV sOTADPR, Re :DPB POINTER 
| 338 Bilis Brees do0040 on0010 MOV BBY TOS, RPSO(RY)  *HRSSBUS CLEAR ES | RGISTERS 
lll22 013764 003554 000010 MOV DAOTADPB, RHCS2(R4) :SELECT DRIVE 
| Ba SHES aie monet Reb TORE ho-te 
| 3743 O11134 012705 177777 3: MOV 8-1, R5 ; T_UP/DOuN SWITCH TO DOWN 
| «HF SLIT OOH7 a? Ceueue JSR PC, @#COUNT ; HE COUNT 
| 374s O11198 004 226 SR pC, aaTHOMs sSTALL FOR 2 MILLISECONDS 
up 011152 603263 BGT 1§ :NO--BRANC 
| 3748 OLLIE4 cOoHe4 BR EXITLI *YES--EXIT 


a ero ° eg EDD 


ST ern “MECHANICAL AND READ WRITE TEST” 

DERPKC.P11 Tl AVERAGE SEEK TIMING TEST 
011156 042777 00910! 170210 7$: Bic. 
11164 177776 CLR 
Sill MOV 
Hiss onic sires 
1] 2702 003554 MOV 
ll 73? 037044 JSR 
1 12764 000040 poont8 MOV 
11214 013764 003554 90001 MOV 
plices 104420 RESREG 
ll 04020 ERROR 
ices EXIT11: SCOPE 
ll 12764 000040 0600010 MOV 
11236 pies 003554 O000010 MOV 
11244 ei 022402 JSR 
11250 91 psa 7ee 621104 MOV 
Bi ices 004037 JSR 
liebe 002414 T1l 

*#TEST lz 


TIME. 


PLUG Te ePEnEn Shri ih cihc: RARER RSSRRES Cnr none tant nnn rae 


011264 tsT12 
011264 033737 OO14S4 001260 BIT 
Olle7ve 001002 BNE 
011274 000137 011764 JMP 
011300 013737 001176 64S: MOV 
011306 O01 11264 001106 MOV 
011314 Die? 3 O1lc64 001110 MOV 
Oll322 O1 lz 001102 MOV 
911330 013737 001102 177570 mov 
iia BCT 
BSS mee Bs, 
/ 3 
| {1384 BONDI BR 
011356 000563 BR 
Ba HS Be PE coum 
pti 363 ft Bt BB TEST12: MOV 
11376 012701 000200 HOV 
| Ot Log Bi2797 Biiese 167754 at 
1414 01 024600 020740 me Nov 
Biid 1 teeae 000034 MOV 
011434 012764 000105 000000 MOV 


A TOTAL OF 256 SEEKS). 
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#101, aPKCS sSTOP THE CLOCK 
aePs’ :DROP T A, ORITY 
(SP), RO C OF 
(SP) POP THE be "FROM THE STACK 

*SAVE RO-R5 
80T R2 : DPB POINT NTER 
PC, J8SVRHIL 2SA HE RHLI/RPOY REGISTERS 
#8{T05, RHCS2(R4) MA AR 
JeDTADPB,RHCS2(R4) ; T DRIVE 

sRESTORE RO-RS 
20 CLOCK OVERFLOWED 
SBITOS,RHCS2(R4) ;MASSSUS INIT. 
DeDTADPB, RH*S2(R4) : j ELEC CT DRIVE 
PC, aaST. CLK s INITIALIZE THE CLOCK 
sI5R, IRPVEC *RESTORE RH11/RPOY INT. VECTOR 
RO, aSTYPTIN ! 


iB INTER THE TIMES 


; LEEELELAAELALLLELLLA FLERE LELALEL ERE RE LEELLEREL LEASE LELERERELEEE 


MAXIMUM SEEK TIMING TEST 


* THIS TEST WILL COMMAND A FORWARD SEEK FROM CYLINDER O TO 

CYLINDER 410, THEN A REVERSE 
* ov YLINDER 0. ‘BOTH 
° HEY a WITHIN Ti 
e 


SEEK FROM CYLINDER 410 TO 
S ARE TIMED AND CHECKED TO INSURE 


THIS SEQUENCE IS REPEATED (FOR 
THE MAXIMUM SEEK TIME IS SOMS + 4MS OR - QMS. 


s FELELELLLLLFLELLLE LE LLLERLLELALLALELELAALLELAREELL LAE LALLA AE ELE 


OeBITS+<1l2#2>, TSTNMS ;00 THIS TEST? 
4§ ; YES--BRANCH 


ST13 *NO--GO TO THE NEXT TEST 

DeRPT2 STIMES GET THE ITERATION COUNT 

8TST12, d8SLPADR ;SETUP THE SCOPE LOOP ADDRESS 

aT He’ J8SLPERR ;SETUP THE ERROR LOOP ADDRESS 

812, a8$TSTNM ;SET UP TEST NUMBER 

THE ERROR FLAG (SERFLG) 

STSTNM, J8DISPLAY *LOAD THE TEST NUMBER INTO THE DISPLAY REGISTER 
aacLKsta sKuLI-P écock 

1S *YES--START TEST 
RB decrcHoO 4 SDO A RASSBUE INIT. RECAL 

. SPP TURN HERE rr 
EXIT! *RETURN HERE ON 

are SCAPE Pe eCHPE T ee ON ERROR 

SeTAGK oP EEToe Sate 

#10128.R1 T "O-410-0" 128 TIMES 
BC aS TRTMR sIN THE TIMERS 

87$. aPKV UP VECTOR IN CASE OF OVERFLOW 
BDORTI,JRPVEC ;SETUP RPOY VECTOR 

B setae QUNTING FROM ZERO 
#41 


»RHCACRY) 
WSEEK)RHCSI(R4Y) ;START A SEEK 








ie p 
Sg e 3 = 
3 # 2 = 8 : e 
¥4 2 BS 2 Bs é c 
” - = Fr mat ~ ~ an ot > = _ 
8 Be. det 3a Bex Egv 3 xe Syuee 
ee 
o Hy Ste wwh= Sasrtws eee Be ai = 
¢ Fat: gondgiy as ey Ge ER CN : 
S Eres wow, ge CeeC ee wow a a GOR ere 
i banveakan 8 Unincnndntenae webenestnaeDakae Go ebas 
_ tc & 7 &£& & zy od 
Sa ;. & ¢ € & a 
Of 9 8 eee ee ite of wzee g_ age vesee 
aoe ES g 38 sex eo S fe : ee 
3 i S882 Sheet = Gaee ee: gh s. Bede seehe 
2 2 ie aee8 nwscacd? Sie S088 ates nties Soe2 g SBoHs 
«9 ao oO oo Oo 
ee ee en | 
2 TaAPAS SHE MIS Soma ES Sw EE MEEPS SSW ASS OS | 
i} 
i ms | 


oo oo : 


6 Bee 
a Eel Ee & oT CR Ee a 
cee z SEES 


BULLE ESS iin niirritaUh Minter Reem eww RAT UU MMe UU el gS 


I I IER dd slp sd df pe fe fee hope per fe fear pe per pe Se ee ee ee Ree ae ee ee oe De Be Ke Roe Doe Ke Rem ot Dee 
ath Kean ian beth date hee het hath ete Len han Kem heen hen haw Lam bas base bam kee keep, bam Kats Lan, bam bas dean, bam han, ban Lam bee bie ban, ben bho. kan ban. han Lan kets ben ban bon bem ban bam ban ban ban ben bam bare) 
QNHBOWHGHWOHBDAVWOHVVAHGHVHAHVWVGHVHVBVWOVOAVAVGOHGHHOVOO3B00O0OOQ00000000 


Rita ARRNRAR ARNO ANARRERRRAR GRAN 


pe ere ee enn rm nt ee rt ee ee ee ee 


BO00 
167510 7$ 
0000 
0000 
2 oe 


MAXIMUM SEEK TIMING TEST 
1 


000131 167724 


Tle 
12777 
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epee onl 


SAVE ALL THE RH1i/RPOY REGISTERS 
CLEAR 
che T DRIVE 
RO-RS 
;CLOCK OVERFLOWED 
MASSBUS_INI 
LECT 
ALIZE T 
ORE RH11 
YPE 
ER 
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DERPKC.Pil Tle MAXIMUM SEEK TIMING TEST 


3359 
3860 -SBTTL ##% ADDRESSING TESTS (13-14) #x# 


s RNS ZENS ZENS ZENS ZENG ZENS ZENS RNS ZENS RNG SENS SENS ZENS SENS SENS SENS JENSSEN 
SRN ZENG TENG ZENS ZENS ZENS ZENS ZENS ZENS ZENS ZENS ZENS SENG SENS ARNE ZENG JENSSEN: 
RNS ZENS SNS ZENS ZN RNS ZENS ZENS JBN ZENS RNS JENS SRBNE RNS ZENE ENS ENS SENG 


;#THE ADDRESSING TESTS INSURES PROPER OPERATION OF THE TRACK 
;#AND SECTOR ADDRESS CIRCUITRY. BOTH ADDRESSING TESTS 
;#WILL BE PERFORMED ON CYLINDER FC. 


7 ENR ENR SNR SNR SNR SNR SNR ENR SNR SNR SNR SNR NRZ SNES SNES SNES SNES SNE 


$72 NRE NBS SNES ENR SNES: NE/ENR/: NRA ENR ENB ENR SNR SNR SNR ENR SNES SNES SNE 
/: S NRA SNR SNES ENR ENR SNR SNR SNR SNR ENE SNES NE/ENE/! NE/ SNE/ SNES SNR SNE 


5 ERRERER EERE EEE REEL EERE EERE EEE EERE ER EEE EAE EEE EEE REELS 
EST 13 SECTOR ADDRESSING TEST 





3875 
3675 
3877 3#T 
358 i Turs Test eS DATA. INTO ALL SECTORS OF TRACK “FT™._ THE 
3 i itt saute Tie Goeck 15 peneOmreD THE BUEFE Fi OTHE SECTOR 0 
a i oa Ppa Hes ARO. rfl ar Pie Sathe aoe CHECKED. 
cs Sy REWRITE SECTOR 1 HD MATTE CHECK SECTORS Geel. 
= 011764 SS gnc nes nineteen naatatat once teenie deessa incantation: \ 
330 11764 032737 OD14Sb O012t0 BIT pases renee. at THIS TEST? 
3892 011774 000137 012264 IMP OTHE NEXT TEST 
BR Bags 6 suse 
3% levee Ole737 0001S ODLINe NOV SLa.aa8TSTNN sSET UP TEST NUMBER AND 
es nee nee ee 177570 ame my pees bi todd THE TEST NUMBER INTO THE DISPLAY REGISTER 
e s 
Bs HSS WE BRP xo, is Salle SMrnl tues we =O HE 
| $303 Olenke Ols7a7 Olesle 003666 MOV 9°13, ge0TAOPE Le sCYLINOER 
| aoe a toe OL atoees 003560 ane fag? opel i COUNT 
12110 O1 34 003562 MOV ScUFER’ TROPEE ADDRESS 
| ae us 012737 PSG 003556 MOV BHREKD SHO TADPB +S = conn SNRITe CHEER DATA 
3310 O12 JR RO, 8 DATA TRANSFER 
Pt ane oe 
| sala bisics bows? Geese TER Bo. gaRVCA CHECK THE SECTOR CATA READ 
| 
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et 012700 044134 MuV SBUFFER, RO BUFFER ADDRESS 
Olel62 00500 CLR SECTOR 
bieiey Le? 000161 O03SSE 1S: MOV euRITE, QNDTAOPR YE sCOMMAND=WRITE DATA 
i 1 i 177400 003560 HOV asctnut jHORD, ag OUNT 
piece ota posers MOVB Be Ce a, oe 
012210 904037 Oe3342 JSR START A DATA TRANSFER 
bizees Me O00151 903556 nov nih a pcg ers ITE CHECK DATA 
1 1 gaat a4 003562 MOV a SID TADPE HOPPER AWORESS 
Olee3% 105037 003564 CLRB 1 aR 
ot S407 023342 JSR aa TADPB +10 :START A DATA TRANSFER 
1 001000 ADD #tb2S6%e2, >MOVE TO NEXT SECTOR 
Gleese bose01 INC Ri 
12254 1 000026 CMP ##022,R1 ;DONE? 
Ole260 903341 BGT 1 NO--BRANCH 
Ole2b2 C0004 EXIT13: SCOPE :LOOP 
j BESERSSRRSRRESRRSEROS SRS E TER SE SES ERRREESERN SENS SRNESEEeseeeeeae 
S#TEST 14 RACK ADDRESSING TEST 







C.P 
3915 
3316 
331 
18 
a 
3925 
3) 
3929 
3930 
3331 
3933 
s33¢ 
3338 - THIS Jest WILL WRITE DATA IN THE FORM OF TRACK ADDRESSES 
2 IN’ YLINDER "FC" SECTOR “FS” OF EVERY TRACK WITH EACH TRACK 
3938 2 Thiet ITS OWN TRACK ADDRESS. 
3939 2 unLTE CK IS THEN PERF EACH 
3940 : THe oA A IS VALID. THEN TRACK O IS REWRITTEN AND TRACK 1 
soi tf REGRTTFENTARD TRAGR S THROUGH TRACK IG TS GRTTE CHECKED. 
3345 i THIS PROCEDURE IS CONTINUED UP THROUGH is ist Hc TRACK i7 
3944 <i AND WRITE CHECKING TRACK 18. 
3046 s SELLA RESREEAALERERSE LESS LAAALELA RRA SEALE AALELRELA SELLA ERE KSLA REE 
3947 diz2bH TST14: 
3948 Olecb4 039737 001460 001260 BIT gag Tse <1442), TSTMS iD0 TH THIS TEST? 
ot Ted 3 NEXT TEST 
Set Hs BE BR cose oe: Oe Sebi srmes Ir fe tae oa 
3952 012306 012737 Ole 001106 MOV 
3953 012314 O1 1 001110 MOV reTH4 os sSETUP THE LOOP ROORESS 
o Oleze2 012737 14 0011 MOVs #14, ad stPERR SET UP Up TEST N NUMBER AND ER AND cic 
3955 01 1 1102 1 MOV STSTNM, QSDISPLAY TOAD oaD THE TEST NUMBER INTO Ge DISPLAY REGISTER 
a a I a 
3360 a B12737 000 eB Fe BATE sao Fo a ee 
sei flees fig Geel pee BT a 
es ; i aa 4 Hove F oersiy’ al ie ee 
Pix | 
iets 1 baat 00356e MOV {BUFFER ADORESS 
t tf 0037 ae RO, 3 TADPB+11 eee 
a ee S Reet eee 
seca a 1000 003562 ST a aH0TAOPESE 5 - UPDA FFE ADRESS 
3969 Ole432e 005200 INC UPDATE TRAC 
3970 012434 022700 CMP #1019, RO OUT ThackSte 
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3971 012440 003365 BET 1$ : NO--BRANCH 
3378 Bistss ? 003562 HOV SEUFFER, ,O8DTADPB+6 ;BUFFER ADDRESS 
3974 i 003556 - HOV. BRD, asp Tnorere, j COMMAND =I TE CHECK 
ae pee je ; ISR BO, seDTADeB+ LL eraRt BOP EE TRANSE RANSFER 
b1e470 001000 o03s6e2 ADD aibesbre, aaDT raPave jUPDA TE BUFFER ADDRESS 
r 2700 000023 iN #1D19, RO oie Teacksy 
1 ees BCT 2 :NO--BRANCH 
Sao) Bicee ee 003stS 38:  bVe Ab, aepTAOPBe11 :TaneK CK MOORES 
3355 pigetg stent . MOV 1 *FORM BUFFER ADDRESS 
= bless 12737 044134 003562 - HOY SBUFFER, JsDTADPB46 ;BUFFER ADDRESS 
01 as BLT et 
3987 012530 062737 001000 o03S6e2 ADD #10256%2, JHDTADPB+6 
8 =: O1s540 01 61 003556 SS: ety aueITE DSDTADPB+2 ;COMMAND=WRITE DATA 
3990 Ol } JSR DRVCAL START A DATA TRANSFER 
3991 Olesse 062737 001000 o03S62 6éS: ADD aibesbse, an0TADPHSE jUPD UPDATE BUFFER ADDRESS 
BES pieee ole 3 eae me i aH) wh "shiny aT ATA TRANSFER _ 
3995 pisese os ante 003565 CMPB a16i6, Se a | 
3996 O1e604 003362 BGT bs ae vail 
S33 SiSet Ge2700 ooogz2 ie Roe ro Ont oF TRACK g, 
3999 912614 BGT 3$ :NO- 
4000 O12616 000004 EXIT14: SCOPE 
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DERPKC.P e## DATA TEST (15) # 


4001 -SBTTL ##*# DATA TEST (15) #%# 


















Oo as... a... le 
4005 
4006 :% THIS TEST PERFORMS DATA STORAGE AND RETRIEVAL ON CYLINDERS 
4007 + “FC” THROUGH “LC” BY THE INCREMENT "IC" USING THE DATA PATTERNS 
4008 * SPECIFIED. THE FOLLOWING SEQUENCE OCCURS FOR EACH CYLINDER: 
4009 % 1. T “NT” TO “FT” THEN REPEAT 2-4 UNTIL “NT” > “LT” 
4010 33 é. WRITE TH TE THEN <iiBt Lets abe, AROUGH LS TKS PE TRACK ent os 
uple :% 4. RRCRERENT “NT@ 
4013 % S. REPEAT STEPS 1-4 BY Eo TEACH DATA PATTERN 
4014 i 6. REPEAT STEPS 1-S FOR “FC” THROUGH “LC” ADVANCING BY “IC” 
4016 # IF A WRITE CHECK ERROR OCCURS THE ERROR IS REPORTED AND 
4017 2% THE TRACK IN ERROR IS REWRITTEN CHECKED. THIS CHECK IS 
4018 # ACCOMPL I PERFORMING TWO(2) SUCCESSIVE ERROR FREE 
4019 i WRITE cKS. a THE CHECK FAILS THE ERROR IS REPORTED AS 
1 + FS DEFAULTS TO 1 AND LS DEFAULTS TO 0 

4022 +# PAT DEFAULTS TO 177777 ALL POSSIBLE PATTERNS) 
40o3 ii THE POSSIBLE PATTERNS 
Wose ii PATO PAT1 paTe2 PAT 7 
ups? + 165555 000001 177776 026455 
40oB + 1333323 177774 026455 
4029 +i 165555 177770 026455 
4030 % 133333 000017 1 151322 
ups + 183333 fooass teeroo 131368 
dpa Sa bc Pe peeuee 
4034 = 13332 1774 
apse 4 173533 Botee> | tenon tet355 
a3 ie ieee ee ie ver aa 
4039 is Leese 017777 1éo000 b2b4ss 
apat 3% 133332 S3e oho igoo00 ‘i 16 052525 007417 O26455 
Wve is 133333 177777 177777 1 125252 170360 151322 
4o44 ii PATS PATS T 10 PAT 11 PAT 12 PAT 13 PAT 14 
won te 165555 000001 177776 172666 077777 153333 OO0000 
ri ieee Be Un flee leer teem Ieee 
upEt i 1 177 78F 1 19859 a3 Apeees ees 
= He eS ae 

+ 1 77 1 6667 177777 
4054 te 165555 1 1? ] 153333 1 
4055 + 133333 001000 176777 ieeee 177677 066667 177777 
4056 +" 165555 002000 175777 172666 177737 153333 177777 
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© eseossece 
2 eecess 
q daeeaRe 


3 


is 


; 


~—OC 
tat) 
Lo 
=> 
Aro 


=“ 


i 


ESERCRCECENU C1 it BERERR ARSE Gatco, 


SELELCEL 
=~ 


<= 
BSVFRZBREB 


aes 


e 
- 


Fs ERORM INE CoESARERDOSSNSNEO NS SSGRS Soe RERSERES 


Gan Bes fname Ga Des hes b= pm Be nt Bs Fe Be 8 Bn Gon ed BO Ps nt oe he po es Dee Pom bee Get hn Be Bee fas as fs Pine Ht pe 


= 


twreoO 
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i# 133333 004 173777 1S5555 177757 066667 177777 ooooco 
i HBRRRS bia {85555 ideeee 150052 beeees 155555 Boon 
ie 15555 04 oygoo0 137777 172666 1 153333 177777 999000 
ii 13333 077777 1555SS 177776 066667 177777 90000 
t) 
1 ana aes rama tistics nail e tah i sciminb ites: 
* BI > igs, TST 300 THIS TEST? 
MP Tig 'NO--GO TO Aue NEXT TEST 
64S: MOV ie 15, STINES GET THE ITERATION COUNT 
MOV sTESTI5,9 #SLPA 
M eTSTIS s SESLPERR ;SETUP THE ERROR LOOP ADDRESS 
MOV 815, a8STSTNM ser EE afiuliGeR AND oe 
MOV STSTNM, JHDISPLAY He 1Eet NUMBER it Ge DISPLAY REGISTER 
CLR RO CLEAR sittcy 
CLR RY FORM WORD COUNT IN RY 
MOV J#LS15,R1 
SUB asFS15,R1 
BGE 1$ ;BRANCH IF FS < OR = LS 
ADD $tD22,R1 MAKE DIFFERENCE POSITIVE 
COM *SET SWITCH 
iS: ADD #t0256,R4 
DEC Ri 
me 
MOV RY, RS sCOPY NORMAL WORD COUNT INTO SMALL WC 
TST RO SWITCH SET? 
BEQ 3$ *NO--BRANCH 
CLR RS FORM WORD COUNT FOR LS < FS 
MOV #?D21,R1 
SUB aeFS15,R1 
2s: ADD #1D256,R5 
DEC Ri 
m 8 
3S: MOVB § a8FS1S,a8DTADPB+10 ;SECTOR 
MOV SBUFFER, a8DTADPB+6 ;DATA BUFFER 
MOV —-@EXITIS:a 5 
TESTIS: CLR SHLCEELG SCLEAR THE WRITE CHECK ERROR FLAG 
HOV girCis, Rl *PICKUP FIRST CYLINDER 
1S: TST (RO)+ ;MOVE TO SHEXT DATA PATTERN 
CMP #1016#2,RO ; OUT OF PATTERNS? 
BGT EH :NO=-SRANCH 
JSR gBAINCCYL MOVE TO efron 
Ss: ee — serous ATTERN SELECTED? 
, BEQ 1§ ‘ -BRANCH 
MOV aFT 15, Re FI T TRACK 
MOV 1,Q8DTADPB+12 ;CYLINDER 


4$: MOVE Re’ QHOTADPB+11 ; TRACK 





















i re ee ee oe eee 


cm 
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DERPKC.P11 iS — DATA TEST 
W113 013062 010437 003560 
411% O130 Oee701 000632 
Wie 01307) 22703 000022 
4117 013100 003008 
4118 013102 010537 003560 
4119 013105 913703 177570 
4120 O13112 0051 
Wiel 13114 000030 
Yie2 0131 14 
4123 Ol3l2e 004737 026076 
4124 013126 032737 000020 177570 
Wise GISI3¢ D173? 61 003556 
aig? Gist Gosos? GeaaMe 
4128 013150 032737 OO0010 177570 
4129 013156 001005 
4130 013160 012737 000151 003556 
aie 013176 bolsss 
4133 013176 BOLUM 
4134 013200 032737 000001 177570 
4135 013608 001417 
4136 01321 000004 177570 
4137 013216 001013 
4138 Ol3ée0 012737 000171 003556 
Wag 013038 Qae737 00008 177570 
4i41 013240 001002 
4i42 Olse42 004737 026206 
aus Olaes8 Opes, 
aus 013069 000700 
4146 013256 O00004 
4147 
4148 
4149 
4150 
4151 
52 





S$: MOV 


8S: BT 


9S: JSR 


EXIT1S: SCOPE 
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RY, JHDTADPB+4 
#410. ,RL 
tie. Re 


c$ 
RS, JSDTADPB+4 
ti 


4!SWO3,R3 


PC, a#SETBUF 
lh aeSWR 
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WORD COUN 
LAST DISK TeyLINDER? 


;NO--BRANCH 
iNet DISK TRACK? 
;NO--BRANCH 


: SHORT 


RT WORD COUN 
SIRITEC WRITE AND 
WRITE CHECK? 


YES: BRANCH 
MOVE ‘be PATTERN INTO THE BUFFER 
HINIBIT UR pare? 


Eiger ar 


; INHIBIT WRITE CHECK? 


: YES--BRANCH 
1 gies “COMMAND=WRITE CHECK DATA 


epee 


$SHOO, J4SHR 


Hine, ans 


BREAD DeDTADPB+e’ : 
#ORVCAL 
aaSWR 


» a8DATCMP 
; OBINCTRK 


sSTART A DATA TRANSFER 
* WRITE CHECK ERROR FLAG SET? 


?NO--BRANC 
; PERFORM READ AFTER FATAL “WCE™? 
INHIBIT DATA AND SOFTWARE COMPARE? 
: YES--BRANCH 
COMMAND=READ 
s START A DATA TRANSFER 
‘COMPARE THE DATA? 
i NO=-BRANCH 
*YES--D0 IT 


MOVE TO_NEXT TRACK 
5 0U T OF TRACKS GO TO NEXT PATTERN 


; SCOPE LOOP 


























013260 
4184 013260 001464 
He Ht BS 
ue fine figs fe 
ue Hiss flee fe 
slat 013316 012737 000016 
ue Gime Sipe us 
NB Hee fee [es 
us tee See em 
sia o13370 Bf at 
Us ties flee | 
Soe 
4203 013420 003564 

He 

Hee 

0134 

013442 











0000e3 003565 
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DERPKC.Pil T1S DATA TEST 


-SBTTL ### EXERCISE TEST (16) ### 


[JE HHBHHBEHHEHHHE BEEBE EHH HEHE EEE 
S#TEST 16 RANDOM ADDRESS AND RANDOM PATTERN TEST (TST16) 


STARTING AT “FC” AND GOING THROUGH “LC” Pret ork PACK 

IS WRITTEN WITH A RANDOM te Wy WO WORDS 
EACH ah WILL BE THE BASE OF FE’ RANDOM GENERATOR 

FOR THAT Frence 

THE TEST THEN PERFORMS THE FOLLOWING SEQUENCE “R” TIMES 

“R” DEFAULTS TO 20,000. 


GENERATE A RANDOM ADDRESS 
WRTE A RANDOM PATTERN AT THE ADDRESS 
GENERATED IN 1. 
GENERATE A ADDRESS 
READ THE SECTOR AT THE ADDRESS 
TED IN 3 


DO A SOFTWARE CHECK OF THE DATA READ IN 4. 
0 8 ie CK OF T DATA WRITTEN IN 2 
READ THE SECTOR AT THE ADDRESS 

GENERA 


IN 7. 
DO A SOFTWARE CHECK OF THE DATA READ IN 8 
DO A WRITE CHECK OF THE DATA WRITTEN IN 2 


a — oe ee ee — SS 


SO SOS SE SESE SE SESE SESE SESE CESS @2EGe ee wees 
ESC THC De DEC DRC Oi WRC RC he ac Dic ie he Dec ae Oe ie 2 aie 
ow Onow £W mR 

— 


eg aapaaie alae pipe ccbe ea taitie nines): Monit: 
BIT DUBITS+<16%2>,TSTNMS ;DO THIS TEST? 
BNE us ; YES--BRANCH 
IMP TST1 *NO--GO 19 THE NEXT TEST 
64S: MOV Tener i STIMES GET THE ITERATION COUNT 
MOV 8TST16,Q8SLPAOR :SETUP THE SCOPE LOOP ADDRESS 
MOV #TSTI6,a8SLPERR :SETUP THE ERROR LOOP $s 
MOV #16, a8$TSTNM ;SET UP TEST AND 
CLEAR THE ERROR FLAG (SERFLG) 
MOV STSTNM, QSDISPLAY LOAD THE TEST NUMBER INTO THE DISPLAY REGISTER 
MOV EXIT T16, a8BYPASS 
HOV 43; O8SHINUM ;PRIME THE RANDOM NUMBER GENERATOR 
MOV oar 16 ssoTaoede 12 +12 ;CYLINDER 
NOV BTRCKWE, *WORD COUNT 
Rt Se paastinent eter 
BIT #SW15, a8. SWR sWRITE THE DISK PACK BEFORE TESTING? 


a 


#F ILRAN te DATA BUFFER WITH RANDOM DATA 
SEO TADPBS I SECTOR AND TRACK 


RO,@ sSTART A DATA TRANSFER 
NCB asbTADPB 


#ORVCAL 
Opes] TRACK 
$1019, ,aed pope+1i WL AL FOR NEXT CYLINDER 


L 


Once, OC 
e2zu 








bh P= D4 GB Ps Pew bs Be 
OnowuUIcUITUNH 
=] 
ny 
GRIGG 


Be Ess 
88 


oOo 
he 
o 
pe 


SGESESISESESSS 3 
= 


f= we PhS bape bape oe pe 


Suwa gry 


st 
re 


Sreeeertes 
ee rs 


s! 
Tw 


a 
OOOOOOOOO OOO OOCOOOO00000000000 


fee a Fae he Pm fae fas ha feet bo ee ps fs Pt hs Re be fe ee jee 


33 
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ESS AND RANDOM PATTERN TEST (TST16) 


003566 


003560 
B51 108 
1110 


3564 001356 
3566 001360 
003556 





#OTADPB+12 
#LC16,d8DTADPB+12e ;OUT OF CYLINDERS? 
(0*-BRANCH 


°N 

#SCTRWC, @#DTADPBS4 ;WORD COUNT 

#TEST16, JNSLPADR 

#TEST16; J#SLPERR 

ast ACK Kap ;SET STACK POINTER 

J#RANADR *GENERATE A RANDOM ADDRESS 

SuSTaOPE+ 10, @HSVADR SAVE THE TRACK/SECTOR 

#OTADPB+12, J8SVADR+2 ;SAVE THE crt 


ce lena, sera 


Sars Stover, STaRT-A ORTH TRANSFER 


ee 12. ,a0OTAOPBee. 3B BUFFER. PODRESS 


SeRAN $BNECK TA 
sth asDTADPB+i0 ato OF WHERE THE LAST 


SuSvAoRie  SeDTEOESY 13 GR ITE ie ce SEER ona 
SBUFFER ORD TADPBS6’ < DATA 
Bey vette tates 


R 
GREAD JSDTADPB+2’ - COMMAND=READ 
tect 2.,d8DTADPB+6 ;DATA BUFFER ADDRESS 
; START A’ DATA TRANSFER 
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DERPKC.P11 ### DATA TEST WI 


WITH ALL MEMORY (17) *&% 








uous -SBTTL ##% DATA TEST WITH ALL MEMORY (17) #xx 
4247 5 REE RAEAAKF RAE RELL ELELE LEEK ERE AREEE LE LELEL EEE ERE RELA FSESELEERE 
4 4 *#TEST 17 DATA TEST WITH ALL MEMORY 
‘ 4 THIS TEST SREREORMS bATA STORAGE AND AND RETRIEVAL ON CYLINDERS 
’ 
used x SPECIFIED: iF FOLLOWING SELENE Ee OCCURS FOR EACH CYLINDER: 
4253 i+ ? N REP Ls NTI “NT > “LT” 
454 2 5 Ire when CuRTTE b EK THROU “ OF TRACK “NT” 
4255 :# 3. N SO OMPARE “FS” yaRounH “LS” OF TRACK “NT” 
4256 +# 4, TRICRENEHY “NT” BY “ 
4257 *% S. REPEAT STEPS 1-4 FOR EACH DATA PATTERN 
gee 33 6. REPEAT STEPS 1-5 FOR "FC" THROUGH “LC” ADVANCING BY “IC” 
’ 
4260 +% IF A WRITE CHECK ERROR OCCURS THE ERROR IS REPORTED AND 
4261 2% THE TRACK IN ERROR IS REWRITTEN AND CHECKED. THIS CHECK IS 
4262 + ACCOMPLISHED BY PERFORMING TWO(2) SUCCESSIVE ERROR FREE 
debs ii WRITE CHECKS. IF THE CHECK FAILS THE ERROR IS REPORTED AS 
4265 fe FS DEFAULTS TO 1 AND LS DEFAULTS TO 0 
4266 :% PAT DEFAULTS TO 177777 (ALL POSSIBLE PATTERNS) 
Hob? i THE POSSIBLE PATTERNS ARE: 
Hgbs is PATO PAT1 PAT2 PAT3 PAT4Y PATS PATG PAT? 
4271 3% 165555 000001 177776 go099 oo0000 052525 007417 O26455 
ie? 2% 133333 000003 177774 OO 010421 052525 007417 O2645S 
4 + 165555 000007 177770 O00000 O21042 052525 007417 02645 
4274 +i 000017 177760 177777 O31462 125252 170360 151322 
475 :# 165555 177740 177777 042104 125252 170360 15132 
on i IRE Bite Uireee ooo esse Ges Gaal? Geies 
4278 + 3 Wie 177400 ind Spaces pesese 007417 026455 
4279 tk 165555 1 - 177777 104210 125252 1 151322 
4280 + 33333 001777 1 ‘177777 114631 1 170360 151322 
4281 +i 165555 003777 1 000000 125252 007417 026455 
4yog2 LA 33333 007777 170000 177777 73 1 1 151322 
4283 + 165555 017777 160000 O00000 146314 052525 007417 O26455 
4284 it 133333 037777 14 177777 156735 125252 170369 151322 
4285 e 165555 077777 100000 O00000 167356 052525 007417 O26455 
Woe ii 133333 177777 000000 177777 177777 125252 170360 151322 
4288 F 
4Pe9 LEX ELAELLY RAE LK ELSES MES EK KES RES EEE EEE YERKES SK EERE SK RSS EKER SLE 
4290 013726 tST17: 
4291 013726 033737 OO1466 001260 BIT D4BITS+<17%2>, TSTNMS ;D0 THIS TEST? 
4292 013734 901902 BNE Bs ; YES BRANCH 
4293 013736 137 014744 JMP SEOP *NO--GO TO THE END OF THE PROGRAM | 
42o94 OL are 13737 O012e44 001176 64S: MOV DRPT17, TINES *GET ore STERATION COUNT | 
4e9s 01 12737 014424 001106 MOV aTESTI?, 
2% 013756 012737 013726 001110 MOV 7,3 HSLEERR ;SETUP THE ERROR LOOP ADDRESS 
4297 013764 012737 000017 001102 MOV i IF. seater ;SET UP TEST NUMBER BND 
4298 sCLEAR THE ERROR FLAG (SERFLG) 
4299 013772 013737 001102 177570 MOV STSTNM, JUDISPLAY OAD THE TEST NUMBER INTO THE DISPLAY REGISTER 
4300 * ; deeAeRHEEROUEESERESSOOESAaSEEEAEEREEEAEEEEEOROEOLEREERTEESSRETESEEEE 
: 
t 
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sa caiSeene 


ef 


s deeded 


QO00000000O 
Pao bas bs ho ho Ps Pe he Pe he pe 


& 


T17 


0 bs bf bb pe he 
GRRE 


tae 
wey 
o 
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DATA TEST WITH ALL MEMORY 


5 RRRRAARKE ELAR ERE LLLA KE REA LER ELAR ALL LLAR AEE ERE AERELELE LER ERLE LELERERER 
 RERRRARALERAA AEE REEL RARE LAL RE LER AREAL RRERE REE RERREELELEER ELLER ERRELEE 
5 RRRALARAALA LALA RAL EL ALARA LAER E LAE AE LAER LELALL REE RE ERE ELALERAEERELELEE 
5 RRRERAELAKEAAE LEE RAL LALA KARE RERALE LARA RALLE LEELA EAA LL LEE REE RERELELELER 
5 RRREARAKAELAALE RARE RA LEE ARAELERERE LE REALE RE RER ELLER ALLELE ALLER EEE R BEER 
5 RRRAARAAALLA AEE AE LEELA LLL AE EARL ALLELE EE REL AAA AREER EAE LALRE RERAAARELEE 
Hi ahshsh debehehehehebolshebehehehebobekehehehobebehebohobebchehebelsheheheheekshehebebhehehebetehelehebebelatehebelcdekehehebotetekehehel 
$ RXRRRERARE RE RELE LEAL AKER ALE EER LEA ERLE ELLE LEE EREE ELE RE ELELERERERE LEER 


100000 
014744 
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—- 











i 
! 
? 
i 


MAINCEC$11-DERPK-0_“MECHAN 
eke Ti? DA 


14270 0137 


SS 


DERPKC. Pit 
4358 O14276 ibe. 
4359 914304 01 
4360 pissiz 
uses Ghusie a 
4363 014322 16370 
4384 O14 OCe2 
4365 O14 
4365 O14 1 
4387 O14 
eS Bee 
aan) Sta3e8 Bt 
4372 014352 Boos 
4373 143% O14 
aoe pss 012701 
4376 14364 ea 
4 14370 

aes His fee 

| der Bt t 

| d3e> Biase Apaeay 

| 4383 OINMIG O12737 

| 43S ie yeaa 
uaee O1uaas | DOOMO? 

| 4387 014436 905720 

| #388 giv Gee700 

| 4360 Oise ooo? 
PE thers 
4333 BiWNee GSebor 
Wase Bie Glaze 
43% Diaize sete 
4392 G47 110237 
4398 14502 D104 
4399 014508 1 
want piaera 
yune 14520 
oe tie i 
Woe DIMES Baeza 
4407 ie po14 
oe ies Bee 
u410 O145¢% 002005 
#41) 014556 0127 
4412 014564 004037 


ee eee 


177570 
003556 


1§: 


es: 


3$: 


TESTI7: 


1$: 


es: 
3: 


43: 


S$: 


BGE 


BEORSESS 


Al 


BqaBgnsgeapnee 


Rene eseoe to 
PSIay 


Goanaeness 


TEMP TEMP2 
ihre 
3] 0000 
“CLEAR SWITCH 
FORM WORD COUNT IN RY 
38LS15,R 
aarsis. at 
1$ sBRANCH IF FS < OR = LS 
#'022,Ri : MAKE DIFFERENCE POSITIVE 
RO ‘SET SWITCH 
#t02eS6,R4 
rt} 
i 
RY, RS :COPY NORMAL WORD COUNT INTO SMALL WC 
RO :SWITCH SET? 
3$ :NO--BRANCH 
| RS “FORM WORD COUNT FOR LS < FS 
#tD2e1.R1 
aeFS15,R1 
#tDeS&,RS 
RI 
A 
J8FS15, PDTADPB+:0 ; SECTOR 
BUF asOTADP8+6 ;DATA BUFFER 
s€XtT17, 088 (PAS 
a é sCLEAR THE WRITE CHECK ERROR FLAG 
8403., 1 *PICKUP FIRST CYLINDER 
(RO)+ ;MOVE TO NEXT DATA PATTERN 
#1082, RO SUT OF PATTERNS? 
DsINCCYL *MOVE TO NEXT CYLINDER 
tT17 INDERS 


1s 
SeFT1S,R2 IFIRST TRACK 

R1,asDtAOPB+12 ;CYLINDER 
Re; aeDTADPB+1! ; 

RY; daDT *WORD COUNT 

#410.,R1 iLRet DISK CYLINDER? 

#18. ,Re iLAST T DISK TRACK? 

RS, J’ TADPB+4 

asSuR, R3 in ie IT unite ND 

seuow'suas,ag 

PC, 2eSETBUF TA BATTERN INTO THE BUFFER 
sSWO4, d8SWR i ahae T WRITE? 

6 ~-BRANCH 

SWRITE, IBDTAD soreei"® SRO MRENO SURI TE DAT 

RO, J8DRVCAL sSTART A DATA TRANSFER 
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?OUT OF CYL 
°START WITH PATTERN 0 
TS(RO), DePTRNIS ; THIS TTERN SELECTED? 


NSINDEC-11-DERPK 
DERPKC.P1] 
nfs 
Se Hee 
441 1 
441 1461 
441 1461 
441 1 
4420 O01 
os 
ne ies 
44, vt 
44 1 
44, 1 
4, 14662 
14666 
44, ye 
We 14674 
4431 014676 
Se five 
4434 014712 
4435 te 
W435 014724 
4437 014732 
4438 014736 
4439 014736 
449 014740 


ee 2: 
g 


SQeus 


ae 
io 
ee 


=: 
8 


G Etta 


= “MECHANICAL AND READ/WRITE TEST” MACYL1 27(732) 


DATA TEST WITH ALL MEMORY 


009013 
000151 


Obi3s8 


occco! 


177870 
003556 


001220 


S 
rund 
£ 


&$: BiT sSW03, deSWR 
BNE 
MOV 
ISR JSORVCAL 

7$: is! auiter EFLG 
SIT FSuO0, a¥SHR 
BEQ 

83: BIT sSWO2, JaSWR 
mY diem 
JSR ys 
SIT las 
BNE 
ISR PC, aeDATC 

9S: JSR RO; as One 
BR 
BR 4§ 

EXIT17: CMP TENPe, TEMPS 
oe 

18: INC 3 
ADD top. KIPARS 
ADD #200, KIPARE 
INP T1S.2 

es: 
SCOPE 
CLR SRO 


Nn ee = ne rte 
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73 * YES--BRANCH 
BHRCKD aeOTA ADPB+e SPM HANDSHAI TE TE CHECK DATA 


FER Oe READ AFTER FATAL “WCE”? 
; INHIB T a DATA AND SOFTWARE COMPARE? 
sDTAOPE+2° - CONMAND=READ 


;SCOPE LOOP 












; INHIBIT WRITE CHECK? 


:StERT A DATA T 
URITE ck ERROR FLAG SET? 


sSTRRT Q Grbuat Ye baa TRANSFER 


Wes=ob0 TT 
:MOVE TO_NEXT TRACK 
jOUT. OF TRACKS GO TO NEXT PATTERN 


ee ett TE “ME CHANT 


Pol GRE RERFRURM ata gedcraut incite es E. 


“4 


—— ee 


015026 


SESSSRORR RREDIRERSEEISERR SBN 


iininen 
ee 
Oo 


CAL 
TY? DATA T 


E 


AND 
ST 


WITH 


PEAC/WRITE TEST” 
H ALL MEMORY 


s RERSLELAAAEAALLLSLELSLELAELS LAS LS SEL A RELA SEALS EAA LASEFELELSLESE 
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~SSTTL END OF PASS ROUTINE 


of He THE PASS NUMBER ($PASS) 
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:# INDICA TE END-OF-PROGRAM AFTER 8. PASSES THRU THE PROGRAM 
-#IF THERES A HON] TOR TO IT 
:#IF THERE ISN’T JUMP TO RESTART 
SEOP: 
104400 014752 TYPE +4 53 TYPE. ASCIZ STRING 
000410 BR 64 Ger OVER THE ASCIZ 
aa :3.ASCIZ (15> «12> «133 7END OF PASS/ 
7 001256 TST JeORVSEL sANY DRIVES SELECTED? 
1434 BEO 1$ >NO-- 
104400 S1S006 TYPE +4 $3 PE ofiogz STRING, 
BR 65s 
ess 3;.ASCIZ 7 ON DRIVE?’ 
013746 001272 MOV QNCHKORV,-(SP) 5; 8c FOR TYPEOUT 
TONod ae 5 BO FYPESCOCTRL ASCII 
od2 BYTE ii TYPE 2 DIGIT(S) 
006 “BYTE OO : SUPPRE NG ZEROS 
04400 - 015036 TYPE +4 tt Type ASCIZ STRING 
booNie BR 2 ASCIZ 
. ae +3 .ASCIZ ERRORS’ DETECTED=/ 
013748 001112 MOV QSSERTTL,-(SP) ;;SAVE J¥SERTTL FOR TYPEOUT 
104402 TYPOC °G0 TyPE--Oc TAL ASCII(ALL DIGITS) 
905037 0011 1S: CLR @eSERTTL : SERO ERROR TOTAL 

0011 éLR $TSTNM ZERO THE TEST NUMBER 
905037 001176 CLR STIMES 33ZERO THE NUMBER OF ITERATIONS 
ANES37 « ANIINA TNC $pass INCREMENT THE PASS NUMQER 
042737 100000 001100 BIC #100000, SPASS $ DON’T ALLOW A NEG. NUMBER 
bose? DEC (PC)+ > LOOP? 

10 SEOPCT: .WORD 8. 
003036 BGT SDOAGN ss YES 
012737 MOV (PC)+,a(PC)+ :sRESTORE COUNTER 
10 SENDCT: .WORD 8. 
15120 $E0PC 
04400 015140 TYPE ;sTYPE ASCIZ STRING 
bposg? BR :GET OVER THE ASCIZ 
es 33.ASCIZ (15> <12>/€N0 OF TEST 
5224 YPE SE sTYPE NULL CHARACTER 
yeaier papate SGET42: MOV Sti RO a MONITOR ADDRESS 
1414 BEQ *:BRANCH IF NO MONITOR 
e700 015210 ch See, RO $3 Hs ores ACTIL? 

177777 oo0002 MP " Moe RO) -IS THIS THE LAST PASS? 
terre ge io THe Last 
000005 RESE Lae THE ANORTD 
004710 SENDAD: JSR PC, (RO) G0 TO MONITOR 


nn ae rn ae ee ee ee eee = 





| 
| 


END 
01Sele 0002 
S214 


1 poe 
15216 
i 20 Beb1 37 OOS344 


1 O1S224 377 377 
4502 01S23C 


SE iy 
‘ 


SDOAGN: 
000 S$ENULL: 


JINDEC-11-DERPK-C me CRANECee AND READ/WRITE TEST” 
Pil PASS ROUTINE 


NUP 
NOP 
NOP 
JMP 


MACY 27(732) 


OBRESTART 


BYTE 1,°1,0 
- EVEN 
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;;SAVE ROOM 


ysACTIL 


» RETURN 
s;NULL CHARACTER STRING 
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DERPKC.P11 END OF PASS ROUTINE 


aathooe f 2 


ASAASSSEGS 
O00 NO Ul.£ GJIC 


f 
RaRanmnnnRn 


at Al 
S=T=4 
or 


See TSIP RUN Nee EONS 


ae baw D6 Be Ben hoa fos Bo bee Beat Poo he Bae Pie fo he He bos he H-8 e boe be Ps = ba be 9 Bo hs as 


RUT ares ee ate eed Me MaMa ACC id 


-SBTTL ##% SUBROUTINES ##% 
itiiti iii iiiiiiitii titi titi ii titi ee ttt tt et tite terse ere te) 


~SBTTL ERROR HANDLER ROUTINE 


3 ¥THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
; #SAVE a ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL 
;#AND TYPERR ON ERROR 
; #THE gtrTcH OPTIONS PROVIDED BY THIS ROUTINE ARE: 
;*SWIS=1 HALT 
; #SW13= Wie T TYPEOUTS 


— LOOP ON ERROR 
;;ERROR=EMT AND N=ERROR ITEM NUMBER 


: 


” BIT aSWOS, J#SWR he ERROR MESSAGE TO TTy? 
IS THERE A LINE PRINTER AVAILABLE? 


MOV QeLPS,aNSTPS !YES--SETUP STATUS 
i HOV g4LPB, oeS TPE * AND BUFFER REG. 3 af OR LINE PRINTER 
: iS i RENT te Tie FLAG GO TO ZERO 
HOV ism, auDISPLAY’ ;DISPLAY TEST NUMBER AND ERROR FLAG 
Beg ey srBELL ON ERROR 
a TYPE RING BELL 
; HOV ph }, SERRPC es RODRESS OE ERROR INSTR OR INSTRUCTION 
VB MB TRIP SA ERROR ITEM CODE 
Bi T13, eC He THPEOuT IF CET 
138 QETYPERR 0 86 fo USER ERROR ROUTINE 
2s: TST yt sHALT ON ERROR 
BL 3$ iSite P ir TINUE 
3S: gir #81709, aeSuR uO ON ERROR SWITCH SET? 
MOV SLPERR, (SP) Fuge Re RETURN FOR LOOPING 
4S: rst SESCAPE Hore FOR AN ESCAPE ADDRESS 
- MOV SESCAPE,(SP)  ;;FUDGE RETURN ADDRESS FOR ESCAPE 
‘ MOV DeTPS, BUSTPS iSET ET STATUS AND BUFFER REG.’S 
MOV JeTPB, deSTPB 
RTI RETURN FROM ERROR CALL 


eeTTL TYPERR «TYPE ERROR ROUTINE NNN RMREEE TEES 


att 
jaTats nour te INE USES THE * CONTROL BYTE” (SITEMB) TO DETERMINE 
ERROR IS TO BE TED, IT THEN OBTAINS, FROM THE “ERROR 
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#TABLE” (SERRTB) BND REPORTS THE APPROPIATE INFORMATION 
ireale mine THE ERROR 


JSR PC, SaTVPERR 
: RETURN 


Mi 





1 3737 001102 001170 TYPERR: MOVB #STSTNM,QNSTMPO ;SAVE THE TEST NUMBER 
ete Aiae3s bed Wee RS aeSAVROS . SAVE RoCES 
ne) 5 ape 3 001154 aby #4, RO GO oF OR REoRS. fy SREGO-SREGS 
wees pt etey piposs 0011 MOV Set cia 
4570 O15460 010237 001160 MOV Re, JNSREGE 
4571 O15464 010337 001162 MOV R3, d8SREGS 
ive 015470 010437 001164 MOV RY, J8SREGY 
015474 010537 OO11&6 MOV RS’ d#SREGS 
4574 015500 113700 001114 MOVE  assITEMS, RO sPICK UP ERROR ITEM NUMBER 
4575 015508 610001 MOV RO,R1 SAND COPY IT INTO RI 
4576 01 DEC RO >FORM INDEX FOR ERROR TABLE 
4577 015510 106300 ASLB 
4578 015512 106300 ASLB RO 
4579 015514 106300 ASLB 
4580 015516 103008 BCC 1S S ERROR > 37? 
uee> gLeeSe ead 1s: ADD sITEN-SERRTB, ij ye om eas 
4583 pt eess peer o1ss44 MOV (RO)+, 2$ GET ERROR MESSAGE CEM) POINTER 
4584 015534 001447 BEQ 7$ *BRANCH IF THERE ISN’T ONE 
uses 01 104400 001207 T , SCRLF "CARRIAGE RETURN - LINE FEED 
4586 O01 O4400 T 
4587 biS54 : , 23: WORD o < score POINTER GOES, HERE 7 
WEBS piece thn —_ Bue 75° iNO-= aia 
4590 O1S554 013701 001276 MOV SESVSTAT, Ri ET TATUSERROR INDICATOR 
a8 
aoa Bieeee dpesbt fae At pies “EsroR” alr eBIT iS) 
4593 O1S5b4 Ol2702 oO01622 HOV ASTATBL, Re ist STatus RESSAGE POINTERS 
Nee piees> oquhe oO1SeOO he Puy ae 6 Ring PEED 
4596 015576 O00402 BR 64g 33GET OVER THE ASCIZ 
97 33-ASCIZ 4 
es i 
1 012237 015626 3S: MOV (R2)+,5$ sMESSAGE POINTER 
4600 GiSb19 006301 ASL Ri TIPE THIS MESSAGE? 
#608 biSel4 Neate ae 3 ESS CTYPET A "CR" & “LEY? 
15616 001002 BNE 4§ ;NO--BRANCH 
4604 15620 1 001207 “ TYPE  ,SCRLF * YES 
uebe Bese cs: "TORO 3 sMESSAGE POINTER GOES HERE 
4607 O01 1 TST 1 >MORE TO TYPE? 
4608 015632 001403 BEQ 6$ ;NO--BRANCH 
4609 015634 104400 o406l2 TYPE MSG. SP ; YES~-SPACES 
4610 15649 00076 BR 3 * LOOP 
Hell 1 001 6S: BNE “BRANCH IF NOT FINISHED 
4612 O15644 104400 015652 YPE +4 $5 TYPE ASCIZ STRING 
4613 015650 OOO4O1 és$ *:GET OVER THE ASCIZ 
4614 +s ASCIZ Yi 
| 
t 


ee ee we nee ee a 
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DERPKC.P1 OUTINE 


1 TYPERR - TYPE ERROR R 
uB1S O1S6S4 
WB1e OleeS4 122737 cO0002 001114 
Be Hee eT cow cn 
1 4 
BIS leer OBIMIy on consis 
Wes 015702 901411 
weee 015704 12737 000042 ODL114 
ueo3 18712 O01 
ues 12719 122737 000043 001114 
ae 
ues? ot 001234 
ueS8 O1e732 001033 
WEDS OIE734 D104 
E30 018736 013704 032360 
We31 Ols742 104400 015750 
— oo 
E34 O1S762 
WEIS O1S769 16445 O000SO 
oF ties ie 
01 104400 015776 
WE38 DIE774 OOD405 
4E39 
4e40 016012 
WE41 OIGOID 16446 o000S2 
ue42 DIEOI6 104402 
ue43 16020 012604 
we O160e2 
weH= O1b0e2 012037 O1E0% 
ues? bieoa0 104400 001207 
WE48 DIG034 104400 
uESO BIEDSB prone 
ueel Diets ayeae 
ages BiEbNe brEnoD 
= ie 
upEE BIDEN poetas 
deco Oieces ea ee? 
4BS9 D1G0E4 112004 
WBE 16066 006004 
Heol 1 103433 
16072 013146 
uees 
uee4 
WEES 
es 
ueeB 


SE 


ee a ee ee 


| 
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6S$: 
7§: CHEB #2, SITEMB 
CNPB 4s 10, SITEMB 
BEQ 2s 
CMPB 17, SITEMB 
BEQ 
CHEE #42, SITEMB 
CNPB 0s-#43, SITENB 
BEQ S 
BR 5 
25s: ST EMP10 
BNE ees 
MOV -(SP) 
MOV RPADR, RY 
a tee LET ieee eke 
on 33 .ASCIZ ¢15><12>/RABAES 7 
MOV RHBAE (RY) , -(SP) 
TYPO: 
TYPE +4 ;;TYPE ASCIZ STRING 
BR asciz’® tt eae j5GET OVER THE ASCIZ 
67S: sl 
MOV RHCS3(R4), -(SP) 
TYPOC 
265 MOV (SP)+,R4 
Hoy (RO)+, 8S PICK UP DATA HEADER (DH) POINTER 
TYPE , SCRLF ‘CARRIAGE RETURN-LINE FEED 
8S: .WORD O "DH" POINTER GOES 
9S: MOV (RO)+,RI * PICKUP bare TABLE (OT) POINTER 
BEQ 20S “BRANCH IF NONE 
CLR RS >SET INDENT SWITCH 
MOV (RO)+,RO *DATA FORMAT (DF) POINTER 
MOV (RO)+,Re ;NUMBER OF DH’S TO TYPE 
BEQ 17$ “BRANCH IF DH NUMBER IS 0 
COM RS *NO INDENT 
TYPE SCRLF ;CARRIAGE RETURN-LINE FEED 
10$: MOVE {RO)+,R3 *NUMBER OF DATA WORDS TO TYPE 
MOVB (RO)+,R4 *AND HOW TO TYPE THEM 
11S: ROR RA sOCTAL OR DECIMAL? 
MOV tals Rl)+,-(SP)  ; @(R1)+ FOR TYPEOUT 


rerrrritierrer tt irre petite Ty TPHTIitititiitiiriititttii tit ttt te 
1H GHB HBHHIBHHHHHIHEHHIEHHEEHHHH HEHEHE HHH HE 
3 HHHHHHHHHHHiHHH HHH HEHEHE HHH HEHEHE HEHEHE 
PTTtiitiiitiiiiiiitiittitiiiiiitiii 
UHBHHHHHHHHHHHHHIHNHHIHHIHHHHBHHHEHHHH HEHEHE AHH EBE 
WITTTtitiiiiiiiiiiiiiiiiittiitiiiiii EL 
1 HHHHHIHHH HHH HHH HEHEHE ie 


; 1 3H} HHIHH}HHHiHHHEH}H HHH lH HHH HHH 





oe ae ne Cems enero eens ea ere: 


ae ete 
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1 
4671 O16074 
uB72 0161 
4673 O16) 
4674 16112 
4675 O16114 
W676 016120 
Wor? Olblee 
4o7@ 0161 
4673 016130 
4680 016132 
4681 O161 
ues Ole 
161 
4684 016150 
BBS 016152 
4586 
Hog? O1615y 
4688 016156 
4689 016160 
Nea! Olelee 
ues Dlee4 
Sa fi 
Nese leIsy 
46% 016176 
4697 016200 
4e93 O1eS06 
4700 O1eS16 
4701 Ol6el2 
Woe 16216 
W704 Olese 
4705 O16226 
wo? blest 
4 16234 
4708 016236 
47039 Olb2e42 
4710 016244 
4711 016250 
471 
4713 
4714 
4715 
471 
471 
4718 
4719 
4720 
4721 
Wee Oubese 
W7e3 OlGe5e 
4724 016254 
W725 016256 
4726 016260 


TYPERR - TYPE ERROR ROUTINE 


122737 
001 

isa 
022702 


001015 


ee 


aisbsoss a2 Sd 


= 


ae 


-— 

i 
Gw 
~~ 


Be 


oo00o0 
ee ee en 


Baas 


000017 001102 
000013 001114 
oco001 
000001 
000014 OO1114 225: 
000001 
238: 
21S: 
123: 
135: 
040612 
14S: 
001207 
040612 
016224 15S: 
16S: 
001207 
040612 178: 
037770 208: 
TYPE22: 
000012 


MECHANICAL AND READ/WRITE TEST” 
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#17, STSTNM 
él 


#13, SITEMB 

22s 

#1,R2 

21$ 

#1,R3 

21$ 

233 

#14, SITEMB 

#1,R3 

21$ 

13 

a GO TYPE--OCTAL ASCII(ALL DIGITS) 
Q(R1)+,-(SP) 33 SAVE 3(R1)+ FOR TYPEOUT 

G0 TYPE--DECIMAL ASCII WITH SIGN 
R3 >MORE NUMBERS TO TYPE? 
Rc. SP NPG TYPE SEPERATORS 
° ’ 

ig *LOOP 

ie iar 

SCRLF YES--START A NEW LINE 

RS : INDENT? 

15$ :NO--BRANCH 

MSG. SP YES--TYPE SPACES 

{RO)+, 16 :GET NEXT DH 

3 AND IT 

0 *DH POINTER GOES HERE 
SCRLF CARRIAGE RETURN-LINE FEED 
RS : INDENT? 

10 NO--BRANCH 

MSG. SP i YES-=TYPE SPACES 


L 
RO, J#GETROS *RESTORE RO-RS 
P * RETURN 
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C.Pll TYPERR - TYPE ERROR ROUTINE 
4727 016264 010037 001224 MOV RO, TEMPS 
4728 Olée SiaB_=Ssté«éRO 
4729 Ol6e72 O42700 177420 BIC #177420, RO 
4730 016276 006200 ASR RO 
4731 016200 006200 ASR RO 
13 016302 006200 ASR. RO 
4 016304 906200 SR RO 
me 
4736 016306 016002 172340 MOV KIPARO(RO) ,R2 
4737 Ol63le O0SO003 CLR R3 
4738 016314 006302 ASL 
4739 016316 006103 ROL R3 
4740 c: ASL R2 
4741 Ol 1 ROL R3 
4742 016304 ASL 
4743 016326 006103 ROL R3 
4744 016330 006302 ASL R2 
urs O1bs3e 0061 ROL R3 
4 16334 ASL 
4747 016336 006103 ROL R3 
4748 016340 006302 ASL 
ple Ol6342 006103 ROL R3 
4751 O1e3u4 042737 160000 og1224 BIC #160000, TEMPS 
4752 016352 050237 O0i224 BIS Re, TEMPS 
4753 016356 010337 O0lec6 MOV R3, TEMPS 
4754 016362 O1e74e 001224 MOV #TEMPS, -(SP) 
4755 016366 O04 021050 JSR PC, $DB20 
4756 016372 062716 000003 ADD #3, (SP) 
1737 016376 Teer 016404 MOV (SP)+,1$ 
4 O16402 104400 TYPE 
4759 016404 000000 1S: .WORD O 
4760 O16406 012603 MOV (SP)+,R3 ;;POP STACK INTO R3 
4761 O16410 Ole60e2 MOV (SP)+;Re POP STACK INTO R2 
4762 O164l2 012600 MOV (SP)+/RO POP STACK INTO RO 
4763 O16414 O16666 000002 OO0004 MOV 2(SP)>4(SP) 
4764 Olb4e2 012616 MOV (SP)+? (SP) 
4765 016424 o00002 RTI 
4766 
4757 
Woes 
4798 
mae 
4773 : ERE LEK LE LE LEEKS RS KK ELE RES ER EEK LEK HEE RE EEE LS ELAR LEK ERE R KARE ERS 
4774 = THIS ROUTINE HANDLES TIME OUT TRAPS THROUGH LOC. 
phe 5 RXKLLLELEEESLESE SY LEKSLE REESE KERESE RK SPER EER EEE LREEEERSEERERE 
4777 O16426 TIEOUT: 
4778 O16426 104400 016434 TYPE +4 ; TYPE aSCIZ TRING 
1779 016432 0004 BR 64S *:GET OVER ASCIZ 
4780 se a 3;.ASCIZ <15><12>/TIMEOUT OCCURED THROUGH LOCATION 4 FROM PROGRAM PC/ 
4782 Ol 162716 000002 SUB #2, (SP) TYPE PC 
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DERPKC.P11 RR - TYPE ERROR ROUTINE 


TYPERR 


016S5e6 104402 
016530 104400 
016534 0 
016556 
016556 104402 
4789 016560 Bis7de 
4790 O16S64 Oe 


be 
a2 


R 


== 
ef 
bi 


bee be 


fr 


fateinint atrial siptiictnt iat tanner erento tot ct eR 
2 
+=] 


| 
i 
i 


016536 


001106 


S$: 


TYPOC 
TYPE +4 $3 TYCE ASCIZ STRING 


3k cs VER THE ASCIZ 
3;.ASCIZ (15> «12> PSL fias ios 


TYPOC 
fey SLPADR, (SP) ;RETURN TO TEST 


; LRERERALALALELALLALELALA LEELA LALA LALA LAE ELELELLAE RAL ELA LALLA REELS 
3% THIS ROUTINE HANDLES PARITY ERR 
Oo” gaia matte tai a eet ing rma penta ignt-ek~: 


"64S: 


6S$: 


66S: 


675: 


68S: 


695: 





Ty gat’ 33 TYPE AS ASCIZ STRING 
3;-ASCIZ (15) <12>/PARTTY TRAP B THRU Y VECTOR 114/ 
BR bes. LiceT oven THe asciz 

3;-ASCIZ <15><12>/FROM PROGRAM PC 

SUB #2, (SP) ; TYPE PC 

TYPE +4 3;TYPE ASCIZ STRING 

BR aSclZ cisp<iarvpei nas PCM 

TYPOC 

eas TT OVER THE ASciZ 

3;-ASCIZ (15><1>/HIGH ERROR ADDRESS REGISTER 
HOV JHERADD, -(SP) ;TYPE HIGH ERROR 
an) OT oer he ae 

33 ASCIZ <15><12>/LOW ERROR ADDRESS REGISTER / 
HOY JLERADD, -( SP) ;TYPE LOW ERROR 
a Lae iat SN, 


BR 695 *GET 

+3. ASCIZ <15><12>/MEMORY SYSTEM ERROR REGISTER 
Hoy OMEMERR, -(SP) 

HOV SLPADR, (SP) RETURN TO TEST 















4839 





4867 

4868 

4869 

4870 

4871 

4872 017144 105737 001151 
4873 017150 100002 

4874 0171Se ey 

4875 eis ate 

SF His Bes 
4878 017164 112046 

4879 017166 001005 
es: 

WBB2 B74 062716 
4883 017200 000002 

4884 O017e02 004737 017234 
4885 pi7e08 123726 001150 
dee? 017814 eg 001146 
4889 017220 105366 000001 
Se Gites Bere cure 
Sh ties Bare 

4893 017234 1 161702 
4894 017240 2} 
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5 ERK L RARER E EAE LEER ARERR EERE ERE E EER REE EE EEE REE EEE 
-SBTTL TYPE ROUTINE 


;*ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A O BYTE. 
patie fOUTiNE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 







TEl: SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 
; #NOTES: SFILLS CONTAINS THE NU OF FILLER CHARACTERS REQUIRED. 
p ENOTES: SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 





SSCALL: 
eI) USING A bate 2) ahh 





;;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 














3% TYPE 
ii MESADR 
He) USING A JSR INSTRUCTION 
MOV PS,-(SP) ;;PUSH PROCESSOR STATUS WORD ON THE STACK 
i JSR PC, STYPE *:CALL TYPE ROUTINE 
2 MESADDR *:FIRST ADRESS OF MESSAGE 
$TYPE: TSTB  $TPFLG 3315 THERE A TERMINAL? 
BPL 1$ BR IF YES 
HALT ; HALT HERE IF NO TERMINAL 
BR 3$ ; ;LEAVE 
1S: MOV RO, -(SP) 
MOV aetsSP) ,RO +2 GET SS OF ASCIZ STRING 
2s: MOVB  (RO)+,-(SP) He CHARACTER TO BE TYPED ONTO STACK 
BNE 4g ::BR IF IT ISN’T THE TERMINATOR 
TST (SP)+ *: IF INATOR POP IT OFF THE STACK 
MOV (5P)+.RO ; sRESTORE 
3S: ADD #2, (SP) *:ADJUST RETURN PC 
RTI ; ;RETURN 
4S: JSR YPEC GO TYPE THIS CHARAC 
cs: CMPB (SP)+ ne IT a ge¥ ne FILLER ¢ CHARS. ? 
BNE ;;1F_NO GO 
MOV >:GET # OF FILLER CHARS. NEEDED 
: s:AND THE NULL CHAR. 
6S: DECB *:DOES A NUL'. NEED TO BE TYPED? 
BLT ;:BR IF NO--GO POP THE NULL OFF OF STACK 
aR bee op Te NULL 
*:WAIT UNTIL PRINTER IS READY 





STYPEC: TSTB 
BPL 





a 
$$$ 


Eee pit “Ty tS ae AND READ/WRITE TEST” MACY11 27(732) 
DERPKC. UTINE 


4 O17e42 116677 000002 161674 
uee 017250 000207 
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;;LOAD CHAR TO BE TYPED INTO DATA REG. 
)JHSHEHHHEE HEHEHE HEHEHE EEE EEA at 
~SBTTL BINARY TO OCTAL (ASCII) AND TYPE 








trOCTR wat) re IS ee TO CHANGE i? 16-BIT BINARY NUMBER TO A 6&-DIGIT 


tESTYPOS---ENTER HERE" TO 
:¥CALL: 


beiadhes SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 


;;NUMBER TO BE TYPED 
1 FOR TYPEOUT 


;;1=TYPE LEADING ZEROS 
;;O=SUPPRESS LEADING ZEROS 


tis TYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
j #STYPOS OR STYPOC 


;;NUMBER TO BE TYPED 
;;CALL FOR TYPEOUT 


are—om HERE FOR TYPEOUT OF A 16 BIT NUMBER 


——O 
pope te 
o 

Pj 


x 


BRORRG ESS 


asta 
3 


OOOOOOOOOOOOOOO0O0O00000000 
we 


5 
i 
Rae 

8 


. 


RESSPESSSI LE 
RRehereee es 
Saseee 
eset 


<£ 
ve) 
SN NIN PN NNN PN PN PN NNR EN NON RNIN te 
aa 
a8 
NS 
Sa 





;NUMBER TO BE TYPED 
CALL FOR TYPEOUT 


3 3PICKUP THE MODE 

ie AD re FILL SWITCH 
ER OF DIGITS TO TYPE 

: ADJUST RETURN ADDRESS 


LHSET £08 ST Ce) bicTia 


ale i. ITERATION COUNT 


339A 
9° 
+ 3GET THE NUMBER OF DIGITS TO TYPE - 
; SUBTRACT IT FOR MAX. ALLOWED © 

>:SAVE IT FOR USE 

*:GET THE ZERO FILL SWITCH 
i PICKUP THE INPUT NUMBER 

LEAR THE OUTPUT WORD 

i EROTATE MSB INTO “C™ 


MSB 
tT FORM THIS DIGIT 


;GET LSB OF THIS DIGIT 
i ETYPE THIS DIGIT? 


IF 
tICET RID OF JUNK 


3 Wet TO FOR NUMBER OF DIGITS TO TYPE 





senecene = 
ee 


OOOOOOOO0OOO0000000000 
> + b— b= b= b= bb = 9 — §— 9 6 bp be bs pe pepe 


ERE RER Sanur fe 


peeee 


: 


ulotol 


BRR E RRR GRERE 


OOOOCOOOOOOOO0000000 
Bs RS = bs Pa 0 fo hs b= hat he ee et fet bm Fm pen Fe 


Rs 


001403 


oe 


Rages 


titet st ht af 


000002 


020200 
000020 


ooc0sS 
017714 
000040 


017704 


MAINDEC-11 ~DERPK-C Re AND READ/WRITE TEST” 
DERPKC.P11 BINARY TO OCTAL (ASCII) AND TYPE 


4§: 
SS: 


73: 


6S: 


SOMODE : OF DIGITS TO TYPE 
SOHODE: HOR Oc aanannnnnnn diese Or SIGHTS, TO, TYPE aaa 


-SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 
;#THIS ROUTINE IS USED TO pe RY BINARY NUMBER TO A S-DIGIT 


STYPDS: 
M 


MACY11 27(732) 


Sass 
O~ 
+ +++ 


oo0oo0o0o0 -—Mu--—-—rmwzworDu 
-— 


I) NUM TYPE IT. 
; IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED 
; #BEF ORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 
bts WITH SPACES. 
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3; TEST FOR 
OO TE aE HIS 0? 


::DON’T SUPPRESS ANYMORE 0’s 
*:MAKE THIS DIGIT ASCII 

3 MAKE ASCII IF hor ALREADY 
#0 YPE THIS DIGIT 

3 3BR IF MORE TO DO 


jj INSURE LAST DIGIT ISN’T A BLANK 
3360 DO ee DIGIT 





a 
; 3; TERMINATOR 4 ita ROUTINE 












T. DEPENDING ON WHETHER THE 







;;PUT_THE BINARY NUMBER ON THE STACK 
2260 TO THE ROUTINE 






ite THE CONSTANTS TNOEX 
3;SETUP THE OUTPUT POINTER 
iT THE FIRST CHARACTER TO A BLANK 
GET THE ¢ HE ot teat at 
; FORM TRIS % oD bIcrT 
DONE 


bee eee THE BCD DIGIT BY 1 





2 
a 
4 
Le 


O--e- 
re 


am 


OOOWOOOO OOVOOOOOHVOVOOVBHOOVVNGVHIHO000000 


0 6 = b-3 & + B= bb = 6+ b= bo hs B+ Hn Ot P= p22 H< P= 2 Hua | -< p29 0 HS 


SSS 


b= >= &— 0+ 0 -- & — p< pH <p oH 


ve 


£ 


VSSESSSSSS 


oe ed ol eed Solel et et 
0 IDUI£ tITue- 


SINS URERER NC esReRee 


ee oa 


ORO UN NEURON SS Set ose Soe RTE EUS MNOS 


i 
t 
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CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 
274 - BR 3$ 
48: ADD R1,RS 3;ADD BACK THE CONSTANT 
e TST 2 *:CHECK IF BCD OIGIT=0 
BNE eg OGL THROUGH IF ? 
1 TSTB = ( SP) 23ST a DOING LEGDING 0°S? 
1 BMI 7$ :;BR IF YES 
106 S$: ASLB (SP) 3;MSD? 
i! 1 177777 eve PeSP).-1(R3)  LEKESUESET THE SIGN 
é (dé iw = -? ~ 
ieee 6S: BIS #'0,Re ::MAKE THE BCD Brett ASCII 
090049 7§: BIS 8’ ‘Re *:MAKE IT A SPACE IF NOT ALREADY A 
MOVB =-—«sRe, [3+ ::PUT THIS Chana IN THE OUTPUT 
TST (RO)+ +: JUST INCREMENTING 
000016 C RO, #10 >:CHECK THE TABLE INDEX 
BL es 360 b9 THE DIGIT 
BGT 5 ::G0 TO EXIT 
010502 RS, Re 3GET THE LSD 
o00764 BR 6 G0 CHANGE TO ASCII 
1 8S: S78. 0s SP) WAS THE LSD THE FIRST NON-ZERO? 
100093 BPL 95 ::BR IF 
116663 177777 177776 MOVB -1(SP),-2(R3) 33YES--SET THE SIGN FOR TYPING 
10S013 gS: CLRB —s- (R33) ::SET THE TERMINATOR 
01 MOV (SP}+,RS >:POP STACK INTO RS 
ci MOV (5P)+/83 >:POP STACK INTO R3 
piEEhS MOV Cee Re 3;POP STACK INTO Re 
12601 (SP)+,R1 ;;POP STACK INTO R1 
012600 i HOV (SP)+°RO : POP STACK INTO RO ‘ 
teed oo0004 MOV 308 “4(SP) t Aofusy Fae STAck ~ 
01261 MOV (SP)+° (SP) 
FTI ;;RETURN TO USER 
$OTBL: 10000. 
1000. 
100. 
10. 


SOBLK: .BLKW 4 
5 RREEEES ELEREEESELEREREER ERASE REA ELA EERE REESE EE EERE SERS EEE EEELE 
-SBTTL TTY INPUT ROUTINE 


STKCNT: 33 OF TTEMS IN QUEUE 

STKQIN: .WORD 0 3; INPUT POINTER 

STKGOUT: .WORD 0 5 OUTPUT POINTER 

STKGSRT: .BLKB e 3; TTY KEYBOARD QUEUE 
017734 STKQEND= 


SATHIG ROUTINE WILL INITIALIZE THE TTY KEYBOARD INPUT QUEUE 
;#SETUP THE IRTERRUPT YECTOR BND TURN ON THE KEYBOARD INTERRUPT 


3 #CALL 
.# JSR PC, STKINT 
: i RETURN 

STKINT: CLR STKCNT ssCLEAR COUNT OF ITEMS IN QUEUE 


005037 017724 33 
012737 017732 01772 SSTKQSRT,STKQIN ;;MOVE THE STARTING ADDRESS OF THE 











TTY INPUT ROUTINE 


177% Ol 77 77 MOV STKOQIN,STKQOUT ;;0 INTO THE INPUT & OUTPUT POINTERS. 
17754 133 pu77ee Baaaen MOV HSTKSRV, JTKVEC 5 EF att tHE KEYBOARD VECTOR 
1 1e737 000200 o0006e MO 8200, aetKVEC+2 ::"BR” LEVEL 4 


Vv 
1 61144 TST osTk 
100 163134 MOV s8IT06,a$TKS 3s ENDELE NTERRUPT 
PC : sRETURN 


: 
: 


;#7K SERVICE ROUTINE 
;*THIS ROUTINE WILL SERVICE THE TTY KEYBOARD INTERRUPT 


STKSRV: MOVB -@STKB, -(SP) 
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ery 
eS 
5070 
Se 11 161130 ;;PICKUP THE CHARACTER 
Site 020010 O42716 177600 BIC #tC17?, (SP) ::STRIP THE JUNK 
14 : po0003 . che (SP), #3 ::15 IT A CONTROL ¢? 
ert et | ee 
5007 nes 108 020463 TYPE SCNTLC ier ae CONTROL-C (1C) 
020026 017734 JSR PC STKINT :: INIT THE KE 
5079 o20032 00137 o04e44 IMP TART *:CONTROL C RESTART 
5080 020036 ee po0do2 017724 1S: CHP 82, STKCNT 33 iS Te QUEUE FULL? 
5082 Cede 104400 001202 TYPE SBELL *:RING THE TTY BELL 
Boas GS00es poBone dis 2  antamalltalic B scee: 
S085 o200S6 005237 017724 2s INC $TKCNT *:COUNT THIS CHARACTER 
2086 020062 112677 177640 OVE (SP)+, ISTKOIN i3AN rie IN GUE 
5088 Weng poses, 017726 017734 CMP STKQIN, SSTKQEND 3:GO OFF THE Eran eR 
5089 020100 001003 BNE :;BRANCH IF NO 
5090 920108 012737 017732 017726 MOV 8STKOSRT, STKQIN, i sRESET THE POINTER 
5091 119 o00002 3S: RTI >: RETURN 
S092 : ETT TT ett ttt itt itt ttt itt tte titer t ttt 
5093 ;#THIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 
ebee oo 3; INPUT A SINGLE CHARACTER FROM THE TTY 
| 5096 # RETURN HERE ;;CHARACTER IS ON THE STACK 
ehag : 
5099 oe0112 O116 SROCHR: MOV (SP), =(SP) ; sPUSH THE PC AND 
£100 020114 Bi beee oo00004 MOV 4(SP},2°SP) >: THE 
| 2101 bed lee 005066 OC0004 CLR 4(SP) 33GET feny FOR 8. CHARACTER 
ois BSot se hi55o8 1S TST $TKCNT i TATT ON D CHBRACTER 
| BI ele oie es, yt. 
5106 peotay Sideee s7660 coo0D4 SSTKOOUT,4(SP) SIGE CHARACT 
| 6§107 G201S2 005237 017730 INC $Tk >;UPDATE THE POINTER 
' 6§108 020156 023727 017730 017734 CMP STKQOUT, 8STKQEND ;:DID IT GO OFF OF THE END?. 
| $109 de0164 oe BNE FH $3 
| §110 Oedles 16732 017732 017730 MOV 8STKQSRT, STKQOUT jARESET HE POINTER 
| 6§111 020174 2s: RTI - RE 
| Sile s PPETETETTTETTT TEST TTT TTT TT TTT TTT ETETEETT TTT TTT TTT TTT TTT ETT TTS 
| ett saTHIS ROUTINE WILL INPUT A STRING FROM THE TTY 
ps 33 
6115 : ROLIN INPUT A STRING FROM THE TTY 
eiie * RETURN HERE ;;ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK 
| 5117 + 3; TERMINATOR WILL BE A BYTE OF ALL O’S 





4 


ne 
an 


T 


IC 


st 
- = 
hu 

oo 

£r 


> 20 -+ b=) — pp bp He 


Doe 


~~ 


ae 





VTLS ULL U TTUTTTTUUTTUTITTTTTS TST ITITLSTA IT ITLITLITSTEIULSICSUCSVUST FIELD 


BH 2 B= Be 2 Oe FO bh 2 bt be 8 = = 0 Os 0 ho 8 OB hh hp ee 


8 
s 
2 
5 
23 
30 
3 
3 
: 
2 
40 
: 
: 
SO 
a 
5 
E 
e 
: 
8 
i 
ss 


TY INPUT ROUTINE 


ee 


a 


- 
8 
~ 
io 


suns 


zu 
wo 


to 
Ryerss 
4 oO 
~ STS 
~“N GJ 


seas 


8 
Wm 


ese 


R 


BgDse9 
000177 


ee 
1 


020437 
130 


020430 


020430 
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SROLIN: MOV 
CLR 


a 


6$: DEC 


S$: TST 


3 
23 


53: 


3$: 


a SBSSEALONG BBB 2209 
BS©° gAaoe! 


Seaa 


SCNTLU: .ASCIZ 


“ASCIZ 7#07¢15><12> 
* HHEHEHEHHHHHHEHEHHHHHHEHHHHE 


STTYIN: . 
SCNTLC: 


GrpBABBT AS 


rnin ing an 


oe 
ae 
— 
- 
~oss” 
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RS -(SP) 


SP) 


apt 
aSTTYINS20. ,R3 
we 


(SP)4, (R3) 
8177, (3) 
2 


(SP) 
$ 
#’\,9S 


b-1, (SP) 
R3, #STTYIN 
(R3), 98 


G25 
re: 


=>- 


wr 
ae) 
4 
~< 
“Tr 


> 
4 


os 
es 


/tU/¢15>¢12> 


“3 
= <. 
E 8 


é 
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;;SAVE_R3 
:;CLEAR THE RUBOUT KEY 


33 GET 
; ; BUFF 
3;BR IF YE 
;;G0_READ 


3 


BACKUP BY ONE 


3;SET THE RUBOUT KEY 
::STACK EMPTY? 


;;0R_ IF YES 


INE FEED 
;;CLEAN RUBOUT KEY FROM THE STACK 
;;RESTORE R3 
3;ADJUST THE STACK AND PUT ADDRESS OF THE 
$3 FIRST ASCII CHARACTER ON IT 


; sRETURN 


$351 FOR ASCII CHAR. TO TYPE 
: FERNTNATOR 


ty 
20, BYTES FOR TTY INPUT 


7 RE E 


TIEePEETSETET TTT EST TTT TT TT tT TS | 





=z 
» 
A 
a 
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Pll SCOPE HANDLER ROUTINE 


~SBTTL SCOPE HANDLER ROUTINE 


s®THIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 
se LORD THE deaue buat dear.) INT 0 THE He DISPLAY REG. (DISPLAY<7:0 ) 
NTO DISPLAY< 15:08) 
jaTHE SWITCH OPTION PROVIDED BY THIS ROUTINE ARE: 
*SW14=1 : ON TES 
 ¥SWI1= 1 NHIBIT ITERATIONS 
:#5WO9=1 LOOP ON ERROR 
: CALL 
;# SCOPE 3; SCOPE=I0T 
020470 SSCOPE: 
020470 006137 177570 ROL O4SUR ;;LOOP ON PRESENT TEST? 
020474 100476 Bn! OVER “YES IF SW14=1 
aneeesTAR OF Pia FOR THE XOR tesTeRsaats 
020476 000416 $xTSTR x3 F RUNNING ON THE “XOR™ TESTER CHANGE 
$3 “THIS INSTRUCTION TO A “NOP” (NOP=240) 
b20500 013746 900004 ert HOV OSERRVEC, - (SP) Save T Rrireour OF THE ERROR VECTOR 
OSOREG TST Het ifr tn ar ouR 
012637 O00004 HOV (Sr I,SNERRVEC i |RESTORE THE ERROR VECTOR 
SS: CMP (SP)+, (SP)+ + BP eng THE Seek eee a TIME OUT 
O1eb a? ooc004 HOV (SP)+,38ERRVEC ;:RESTORE THE ERROR ERROR VE CTOR 
male 6$:;88ee8—END OF CBE FOR THE XOR’ 3 {LOO ON, THE 
105737 001103 2s: TSTB © SERFLG sHAS AN ERROR OCCURRED? 
Bue) Bids Bem semc Hien 
i 001115 001103 NPB ,SERFLG $:MAX. ERRORS FOR THIS TEST OCCURRED? 
101015 BHI 3$ >:BR IF NO 


001000 177570 IT Ser T08, ,O8ShR iF LOoP ON ERROR? 


;BR_IF NO 
001110 OO1106 7S: MO SLPERR,SLPADR  ;;SET LOOP ADDRESS TO LAST SCOPE 


oe 
es 


: LG 33 
001176 CLR STines ;;CLEAR THE NUMBER OF ITERATIONS TO MAKE 
fm 4 Geir hbase 
004000 177570 3S: ai : IT11,a8SWR pane T_ ITERATIONS? 


8 
_ 
”" 
=» 


6 fesray BolLve 01104 cre siites, SICNT i Tie MUPER OF ITER F ITERATIONS MADE 
a a eee 
Oiiea7 011 * MOV ( J SLPADR 23 {OOP ABDRESS 
11637 OO111 MOV secuiee has ee ADDRESS is 
ie cn Sera SOVER: HOV Hehe QEDISPLAY  ; : sDIspuay Test NUMBER pt tease tens 
ok 3 0011 ya ADORESS 





rag 


SMXCNT: 1 aK, NUMBER OF ITERATIONS 
; Hh ORT A IA a 


Soe UNIS N Se Neeson SoM ROTORS ee aRRS HS SB SRR RES Te Iota 





a ee 


i 
| 
| 


Bueows iene 


oOoodo0o0o0000 
ee et 


ne 
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3% VREG 
seuren TURN FROM SSAVREG THE STACK WILL LOOK LIKE: 


MOV 
RTI 


;#RESTORE RO-RS 
;#CALL: 


°#% 
$RESREG: 
tien 
ANNNp- 


000022 


Ch bt 2 FS fae P= 2 be b= 


SOR aE ARES 


= 
= 
— 

a 


RO,-(SP) ;;PUSH RO ON STACK 
R1,-(SP) ;;PUSH R1 ON STACK 
Bie} ine a bee 
Ry’ =(P) art a4 ON zy # 
RS,-(SP) 3;PUSH RS ON STACK 
2tsP),-(SP)  ;;SAVE PS OF MAIN FLOW 
(SP), -(SP) 3;SAVE PC OF MAIN FLOW 
e2(SP),-(SP) 3;SAVE PS OF CALL 
22(SP),-(SP) s;SAVE PC OF CALL 
(SP)+,22(SP) ; ;REST OF CALL 
(8p)3' 5518p) + RE eTORE Be OF CALL 
(SP)+, 22(SP) 3 ;REST PC OF MAIN FLOW 
(SP)+, 22(SP) ; REST PS OF MAIN FLOW 
(SP)+,R5 ;;POP STACK INTO RS 
(SP)+,R4 3 3POP Ma te RY 
(SP)+,R3 3;POP ST NTO R3 
(SP)+,R2 ;;POP STACK INTO Re 
Cob} s BE : POP atiee NTO R1 
(SP)+, :sPOP STACK INTO RO 





5,99 6 6 9 9 9 EE A ER EEE EEE EE 
-SBTTL TRAP DECODER 


;#THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE “TRAP™ INSTRUCTION 
nS TRAP TABLE FOR THE STARTING ADDRESS 
re te. THEN USING THE ADDRESS OBTAINED IT WILL 








SSS SSS ESI a nar Une ed 


2 HAND T TO INDEX THROUGH 

; #0F THE DESIRED 

:#G0 TO THAT ROUT 

STRAP: MOV 
MOV 


Bei006 Gibe08 
021 


005740 


MAINDEC-11-DERPK 
DERPKC.P11 SAVE AND RESTORE RO-RS ROUTINES 
peak -SBTTL SAVE AND RESTORE RO-RS ROUTINES 
S233 
Be 
Sei? 
5238 
| 


Laminiiaisnediuahinaenisione . sgncitiincnnd ¥ 
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TRAP DECODER 


= 
Py 
23 
oF 
e+ he 
fe ps 





DERPK 
e5e5 Gsinie ote000 c21024 MOV §TRPADTROD,RO | TESNDEN TO Taw 
258 Bs} pABORE ee Hh . ate. FK Rout tRee 
5290 
529) 
S292 .SBTTL TRAP TABLE 
o53y = s*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
be3 BY THE “TRAP” INSTRUCTION. 
5297 ; ROUTINE 
ec ¢ . .  }}€—EeEereres 
e543 021024 STRPAD: 
5300 021024 017144 STYPE ;;CALL=TYPE TRAP+0( 104400) TTY TYPEOUT ROUTINE 
5301 021026 017276 STYPOC ;:CALL=TYPOC  TRAP+2(104402) TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
e555 poise OLsaie STYPORN :icACteTYPON  TRAPSECHONGOE) TYPE SETAE NUMBER (hs PER LAST FACE) 
ean4 raja pizeke STYPDS ::CALL=TYPDS | TRAP+10(104410) TYPE DECIMAL NUMBER (WITH SIGN) 
5305 02 10% N20112 SROCHR 5 sCALL L=ROCHR TRAP+12(104412) TTY TYPEIN CHARACTER ROUTINE 
5306 1099 020176 , TRAP+14 (104414) TTY TYPEIN STRING ROUTINE 
23ne Beipas pSHoue bee eta TRAPSPBLLONHER) RESTORE RO-RS ROUTINE 
5309 O210% 016252 TRAP+22( 104422) TYPE 22 BITS 
asi0 aannusanessrasnbineesescesausSFODEsaTsee2EnTeuEeSeeTTEEeeeeEes 
le .SBTTL DOUBLE LENGTH BINARY TO OCTAL ASCII CONVERT ROUTINE 
5314 s#THIS ROUTINE WILL CONVERT A 32-BIT UNSIGNED BINARY NUMBER TO AN 
B315 s UN IGHED OCTAL ASCIZ NUMBER. 
St ir MOV #PNTR,-(SP) ;;POINTER TO LOW WORD OF BINARY NUMBER , 
18 * JSR PC, au$DB2 : CALL THE ROUTINE 

5319 + RETURN *THE ADDRESS OF THE FIRST ASCIZ CHAR. 1s ON THE STACK 
east 
5322 021050 10416 $0820: SAVREG aces a GI TE wine 
2354 ete OLE70e 116 MOV atest ,RS Laie Bie Porn "i — 
5325 el 1 000014 MOV #12. ,R4 

21066 ot 177770 MOV #1C7°R3 ae 

Gel 121 MOV (R1)4,RO i LOWER WORD 

1074 012101 MOV (R1)+°R1 > HIGH WORD 

rath ait rs 1S cote BS (RS) Sea alts IN DATA TABLE 
233 ated aipoas : MOV RS Re Ham Me Ble 
5332 21104 DEC RY Ha e 
ee 651115 oO;s05 Q 3 biBR T tee, IGIT 

ate HOV RE,2CSP) i, oe 1 PORTER £0 ahha 
233 rates iosieg RESREG bi Rect ai 
ea33 Getto Reh ORS $7 Te OR THE LAST DIGIT 
233g pettse reaig sé: ROR Ri HPOst Hott OTRARY fh NUMBLR FOR 
6341 021130 bo6099 ROR RO + THE Ted OCTAL DIGIT 
5342 Oell3e2 1 ROR Ri 
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DERPKC. DOUBLE 


LENGTH BINARY TO OCTAL ASCII CONVERT ROUTINE 


S33 021134 006000 ROR RO 
021136 006001 ROR Ri 
ene ptt Baba ate 8 R2 “MASK OUT ALL JUNK 
rats peos85 ocoo60 ADD #°0,Re MAK E THIS CHAR. ASCII 
5348 021150 000753 $360 PUT IT IN THE DATA TABLE 
oai3 021152 9900016 SOCTVL: .BLKB 14. A 
: EEA AEE EE 


5352 .SBTTL SINGLE LENGTH BINARY TO DECIMAL ASCIZ ROUTINE 
e320 Hes ROUTINE WILL CONVERT A 16-BIT UNSIGNED BINARY NUMBER TO AN 
5355 UNSIGNED DECIMAL ASCIZ NUMBER. 
57 i MOV NUMBER, -(SP) ;;PUT BINARY NUMBER ON THE STACK 
2% JSR PC, a#$S82D +3 
5359 + RETURN s:ADDRESS OF THE 1ST ASCIZ CHAR.IS ON THE STACK 


536 
e3e2 021170 016637 COO0002 021214 $SB82D: MoV 2(SP),1$ ;;SAVE BINARY NUMBER 

S363 021176 01274 021214 V #1$,-tSP) 33967 POINTER 

5364 Oele02 004737 O2l220 JSR PC. JeSDB2D “CALL DOUBLE LENGTH CONVERT 
S365 021206 012666 00002 MOV (SP)+,2(SP) {PICKUP POINTER 

5266 Oelele 000207 RTS rc : sRETURN 

5367 O2le14 oo00000 oo0000 18: .WORD 0,0 

paee Tritt ti titti titi iiititiiititiiitttitiittttrtit titre 


5370 -SBTTL DOUBLE LENGTH BINARY TO DECIMAL ASCII CONVERT ROUTINE 


5372 ; #THIS ROUTINE WILL CONVERT A 32-BIT BINARY NUMBER TO AN UNSIGNED 
5373 *#DECIMAL (ASCII) NUMBER. THE SIGN OF THE BINARY NUMBER MUST BE 
5374 :#POSITIVE 
a 

Ba 2 MOV #PNTR,-(SP) ;;POINTER TO LOW WORD OF BINARY NUMBER 
5377 3% JSR PC, as$DB2D 
5378 + RETURN ::THE FIRST ADDRESS OF ASCIZ 
5379 3S ON THE STACK 
eset 
po8e 021 Ouig SDB2D: SAVREG SAVE REGISTERS 

021 1 MOV 2(SP),Re * PICKUP THE DATA POINTER 
5384 Oel 12700 021400 MOV #$DECVL, RO :GET ADDRESS OF “SDECVL™ STRING 
5385 Oel 10066 MOV RO.2(SP) *:PUT ADDRESS OF ASCIZ STRING ON STACK 
5386 O21 12201 MOV (R2)+,R1 PICKUP THE BINARY NUMBER 

ool i 12 021316 HOV a0 as” ;SET UP TO DO 10 CONVERSIONS 
236 5 15e5 Sra vee MOV SSTNPWR, RY tt ADDRESS OF TEN POWER 
2320 ceigs 021332 MOV aSTNPURFE, RS 

1 Oel 1$: CLR R CLEAR PARTIAL 

5392 Oe lebe 6140 2s: “8 CRY) RL SUBTRACT TEN POWER 
2334 oe ste gs SUB (RS) Re 
5395 Oe! 002402 BLT ip :;BR 4 TEN SPOWER, TO LARGE 
Baap fstSo4 ws Bin 
5398 021276 Obe401 3S: ADD (R4)+,R1 RESTORE SUBTRACTED VALUE 
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* 
021300 auc Re 
651309 ee Hi 
l ¢ (R534, (RS)+ ;;MOVE TO NEXT TEN POWER 
5402 021308 052702 O00060 BIS : “0,83 Hate PARTIAL TO ASCII 
2uod pstsis piesss DEC BA) S i BONE? 
S40S 021316 900000 ug: . WORD : 
021320 001357 BNE 1$ +68 IF NO 
031362 19sde9 CLRB thos TERMINATOR 
4 1 1 RESREG STORE REGISTERS 
S409 021326 000207 RTS PC RES URN 
£410 021330 145000 STNPWR: 145000 :31.0E09 
ib les [eras (i oe 
euts 021336 iporee 2765 
5415 021340 113200 113200 ; 31.007 
S415 Oels4e 000230 
S416 021344 041100 041100 ;;1.0E06 
5417 02134 000017 
S418 021350 103240 103240 ;;1.0E05 
5419 021352 000001 
Seo 021354 023420 23420 :31.0E04 
eus4 aes iia 1750 ;;1.0E03 
5423 021362 000000 
5424 021364 000144 144 ;;1.0E02 
S425 021366 O00000 0 
S425 021370 O0001 12 ;31.0E01 
aise OStS74 
28 1 1 ;;1.0&00 
S429 021376 000000 
5430 021400 000014 SDECVL: .BLKB 12. RESERVE STORAGE FOR ASCIZ STRING 
31 eT ttriiiiititiiitititt ttt t tt SERREK ERR KEL ERLE EELS LE RA SS SRLE 
a bi 
ae .SBTTL TYPE NUMERICAL ASCIZ STRING SUPPRESS LEADING ZEROS 
5435 s#THIS ROUTINE IS USED TO TYPE AN ASCIZ NUMBER SUPPRESSING THE 
Bie ; #LEADING NUMBERS. 
5438 2% MOV BNUMADR,-(SP)  ;;FIRST ADDRESS OF ASCIZ STRING 
| 5439 +i JSR PC, a8SSUPRS 
Zag ; 
| Su42 o21414 010046 SSUPRS: MOV RO, -(SP) ;;SAVE RO 
3 Oel4i6 O1 000004 4(SP) RO PICKUP THE POINTER 
1422 40 1 1S: TSTB —s.- ( RO) :? TERMINATEOR? 
Bue Ooi4e 122720 000060 MPs 0,(RO)+ «FS THIS'BN ASCII “O" 7 
2uue 1432 aytaa Q is’ a IF YES 
| 5448 Oe1434 905.309 2s DEC RO He BY "1" 
| §449 0214 10037 021444 MOV RO, 3S *:SAVE FOR TYPING 
| 5450 Oeiw4e J TYPE He 
| Bol beiHis bogoog 3 .WORD O $;ASCIZ POINTER GOES HERE 
1446 012600 MOV (SP)+,RO *RESTORE RO 
| §453 O214S0 012616 MOV (SP)+' (SP) I ERECTORE THE STACK 
| SHH Oel4se RTS PC > ?RETURN 
' 
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8 KRERLKKERLRLF RA AAELE LARA LALA RELAELALE ERLE LARK K KALE LAAERE LAE SZAE ELE 
.SBTTL INTEGER DIVIDE ROUTINE 
5459 s*THIS ROUTINE, WILL DIVIDE A 32-BIT TWO’S COMPLEMENT INTEGER 
Bb i EDIVIDEND By A! “BIT TWO’S COMPLEMENT INTEGER DIVISOR GIVING 
1 OMPLENEN NT INTEGER QUOTIENT AND A 16-BIT REMAINDER. 
S462 DIVISION WILL Sor PERFORMED SO THAT THE REMAINDER IS OF THE 
evb3 jESAVE SIGN AS THE DIVIDEND. 
S465 1% MOV LOW DIVIDEND,-(SP) ;;THE HIGH DIVIDEND MUST BE < 172 
Cub + MOV HIGH DIV VIDENO, ~ -(SP);' AS LARGE AS THE DIVISOR 
5467 x DIVISOR, -(SP) 
S468 :# JSR PC, SDIV 
5469 i RETURN ;;QUOTIENT & REMAINDER ARE ON THE STACK 
5470 2% "V"=0 IMPLIES NO ERROR 
5471 is “v"=1 IMPLIES ERROR OCCURRED 
S472 2% "C"=0 DIVIDE OVERFLOW OCCURRED 
5473 2x "C"=] ATTEMPTED TO DIVIDE BY ZERO 
ae i 
Suze ii STACK NO ERROR OVERFLOW DIVIDE BY ZERO 
78 be TOP REMAINDER ALL ZEROS ALL ONES . 
S79 2% +2 QUOTIENT ALL ZEROS ALL ONES - 
1 O21454 01374% 177776 SDIV: MOV asPS,-(SP) ;;SAVE THE PROCESSOR STATUS 
021460 042716 000017 BIC #17, (SP) >:STRIP AWAY CONDITION CODES 
S21464 O01 MOV RO, -(5P) PUSH RO ON STACK 
S484 021466 010146 MOV R1,-(5P) ::PUSH R1 ON STACK 
S485 021470 01024 MOV R2,-(SP) PUSH Re ON STACK 
5486 e147 O10 346 MOV R3,-(SP) PUSH R3_ON STACK 
5487 021474 CLR -(SP) SAVE A FOR SIGNS 
5488 021476 01274 000021 MOV #17. .-(SP) >:SETUP THE ITERATION COUNTER 
S489 021502 O16601 o00024 MOV 24(SP),R1 PICKUP THE DIVIDEND 
5499 021508 016600 000022 MOV 22(SP),RO 
e151 1 BPL 1$ ;sCHECK THE SIGN 
1514 000003 DECB 496-3 SP) KEEP TRACK OF THE SIGN 
g21520 NEG RO ::AND NEGATE THE ORIGINAL 
5494 el 005401 NEG Ri ; ;NUMBER 
ae tose qe 1S apy BOCSP) R2 PICKUP THE DIVISOR 
2ye5 ata eestid BLT _ S CHECK THE SIGN 
g40g deles4 003011 BGT 3$ *:DIVISOR OF : IS A NO-NO 
5499 021 O52766 000003 000014 BIS #3, 14(SP) 2:SET =v" 8 °C" 
5505 o21544 01 177777 MOV #-1,R0 >:SET REMAINDER TO ALL ONES 
p20) Ge1550 o00424 BR 7$ > EXIT 
1552 O0sebb 2S: INC 2(SP) KEEP TRACK OF DIVISORS SIGN 
5503 21556 1 BR 4s 
5504 O21 o0s402 3s: NEG p NEOATE, THE ORIGINAL NUMBER aoe 
. “hi. 
2epe rae GOO eR é$ i Tee FORMING QUOTIENT =m i 
5507 0el 1 3 RO ON MSB’S 
5508 O21 0003 MOV RO, R3 fal 
6509 O21 ADD Re, iCOBY DIVIDEND & DIVISOR 
6510 021574 103001 BCC x} 8 DIVIDEND > DIVISOR 





- 
| 
| 





4 
? 
a 
—~—p— 


RRRRRRRRR 
OREM ENGR SR Roe 


ees 


o 


RACH ee ceca 
F 


a Oh hf he re he hee ee Bo pe pe he Be 


TOR ERE OBE ES 


a 


Sia ar 
RERSSSBBRRARRARARR 


a 


aati 
J Z2cSRaDNSREERESS 


Qe pas Bs Fe fet rem ee Pt fe ee Re 


010300 


eS 


Qo00000 - 
see 
om ££ 
FESR 


Rens 


ooocde 000014 
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MOV 
MOV 


Bee emarrraess 
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Dw - FZ) ~ 
Re eao 
— 
+> — 


PC, SRAND 


RO, -(SP) 
R1,-(SP) 
Re, ~(SP) 
R3,-(SP) 
SLONUM, RO 
SHINUM, Ri 
#-7,R3 
Re 

i 

R3 

1$ 

1 eaimaiadias 
SHINUM,R1 
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; REMAINDER AFTER THIS LOOP 
3 s QUOTIENT BIT ENTERS HERE 


ZEROS 
+3 NTO QUOTIENT 
a3 


DBOO 

“2S 

at 
3 
3. 


oR 
g 
ia 
: 
ES 


DON’T FORGET QUOTIENT 


Bene 
: eh 
4 
S 


S3s3 

poe 
z 
3 
Fv 


ACK 
33 ACK INTO RO 
;;SETUP TO RETURN CONDITION CODES 


iittitiitittttttiiiiitiitititiiiiiitiiititiiittttitiiititt tess 
-SBTTL RANDOM NUMBER GENERATOR ROUTINE 


*#THIS ROUTINE IS A DOUBLE PRECISION PSEUDO RANDOM NUMBER GENERATOR 
ae A RANGE OF O TO 2(+33)-1. 


” JSR 
RETURN 








OM STACK 
NDER SIGN CORRECTION NEEDED? 


CORRECTION NEEDED? 


ee “MECHANICAL AND READ/WRITE TEST” 
DERPKC.P11 RANDOM NUMBER GENERATOR ROUTINE 


Sosaeee 8 
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#1057,RO ;;ADD_LOW CONSTANT 
Re  BROPOGATE, CARRY 

#47401, RL 00 Hon GH CO NSTANT 

#6,Re : ADD AiGHEST CON ONSTART 

R2,RO :;REPRIME RO WITH HIGHEST DIGIT 
RI ; ;PROPOGATE CARRY 

RO, SLONUM $3 

R1; SHINUM SAVE RI 

(SP)+,R3 POP STACK INTO R3 

(SP)+/Re ;;POP STACK INTO Re 

(SP)+'RI ::POP STACK INTO Ri 

(SP)+'RO 33POP STACK INTO RO 


176543 
4 


. WORD 
OE AEE EEE EEE 
-S8TTL ROUTINE TO SIZE MEMORY 


PC, SSIZE 


5 stro WILL CONTAIN: 
ii WITH see at ION -- LAST VIRTUAL ADDRESS OF THE LAST BANK 


WIT: 
+51 STBK WILL CONTAIN THE LAST a AS A 
it MANAGEMENT 


KT11 OPTION -- LAST A sacle ADDRESS OF AVAILABLE MEMORY 
KEY 


MUST BE SETUP BEFORE THE CALL 


Se 
aBITIS = 0 DON’T 


HAVE MEMORY MANAGEMENT OPTION 


DETERMINED BY ROUTINE 


: 


= 
a 


3 


RNAEN 


SARA A LA dal Aaa anal Aaa 
Sees 
Ren 








SP) 33 SAVE RO ON THE STACK 
SP) 73;9AVE R THE STACK 
=} VE 


22 
a 


1 ON 
33SAVE Re ON THE STACK 
SP ;;5AVE R3_ON THE STACK 
NER 5(SP).§:SAVE PRESENT ERROR VECTOR PS & PC 
5 


Cte 
;;SAVE THE STACK POINTER 
RRVEC+2 3;SET ERRVEC PS TO PRESENT PS 
Hf 3 ADDRESS 


ieee TO Use USE NENORY. HANAGEMENT 


*:BR IF NO 
,OHERRVEC :;SET FOR TIMEOUT 
aeSRO »:KTI1 YOU THERE? 
#100000, SKT11 i YES “SET KT11 KEY 
#MMER OuNMVEC *SET IN CASE OF ERROR 


ITIALIZE FOR 7 teat 


- LOADING 
Hy rRe SSE Ma 2 Ss RRND EIGHT “PDR. ’S” 
a7740b, 4 O(R2) ;;POR = "Wp. READ/WRITE 

tha} )+ * LOAD “pak 


ire 


ra 
=m 


3 








San 


25 
BS 


: 


2 
Ss 


ge 


— 
fw 


se: 


— 


Oo0o000000 
Po ean fen ee | ee hs pee pas 


ee 
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000200 
177600 


37 001254 
022370 


$7032 
001284 


1$: 
o00000& OO00004 2 
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co DHERRVEC’ ; 


#100000, 
SSCROUT? O#ERRVEC 
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;;UPDATE FOR NEXT “P 


S1e7e00,-cney | eMte bat LfTGHT ARE LonoeD 


KIPARG yor TESTING 
Hi ABLE 22 

URN ON ScHORY MANAGEMENT 
>-SET FOR TIME OUT 
ig RAP ON NON-EX-MEM 
::MAKE A 1K STEP 
ssLAST ONE? 


“TRY IT 
iter LAST BANK+1 
3; URN OFF MEMORY MANAGEMENT 


s3KT11 NON-EXISTENT 
: jASET FOR FOR tI TIMEOUT 
:HINGRENERT 8 BY 1K 
:: TRAP ON TIME OUT 


;;LAST_ONE 
33NO--TRY AGAIN 


;;CONTAINS THE LAST ADDRESS 
;;CONTAINS THE LAST BANK 


5 ERARRLLLLERALELA LALA LRL LLL LE LLL LALA LL RLLAE ELE RA LALA LALLA LLLALELE 





WILL CHECK IF THERE IS A LINE PRINTER AVAILABLE ANC SET 
HE PROPER stare. 


LINE PRINTER IS AVAILABLE 


;START WITH_NO PRINTER AVAIABLE 
;SETUP THE TIMEOUT VECTOR 


31S THERE A LINE PRINTER? 


; YES--SET AVAILABLE SWITCH 





- (SP)4, (SP)+ POP STACK 
SERAVECEE, DNERRVEC ;RESTORE TIMEOUT VECTOR 








deceit 


mht th at 
220 
aa : : 
ae Brawoda ys 


MAINDEC-11-DERPK-C “MECHANICAL AND READ/WRITE TEST” 
DERPKC. LP.AVL - LINE PRINTER AVAILABLE 


Oe2400 000207 RTS 

rr nie sete iene 

s#TH s. ROUTINE WIL re IF THERE IS A CLOCK ON THE SYSTEM 
POTMERE To T7 WILL SeTu 16 


EPCLKSTA™ WILL INDICATE” THE CLOCK T 
O= NO CLOCK 


ST.PCLK: 
B 


a a ee + ee 


WILL ALSO SETUP “TICKMS” (TIME 
K IN MILLISECONDS) AND “TICKUS” 
i a oo Lock TICK IN MICROSECONDS) AS 


s & 

:*SWOO=0 -- 6OHZ 
:*SWO0=1 -- SOHZ 
CALL 






14-OCT-76 10:36 PAGE 118 





PACY11 27(732) 





PC ;RETURN 


K STA 





P sf M2" OR AND START THE CLOCK 




















PC, deST.CLK 









R1,-(SP) SAVE R1 
#ERRVEC+2,R1  ;SAVE AND SETUP TIMEOUT VECTOR 
(R1),-(SP3 

sLEVEL 0 


-(R1),-(SP) 
#15, (RL) ;GO TO 1$ ON TIMEOUT 








LKSTA *SET CLOCK STATUS TO NO CLOCK 
aPKCS 1S THERE A KW11-P? 
#1, CLKSTA YES--SET STATUS TO KW11-P 
PC; ST.PCLK j START THE KW11-P 
(SP)+ (SP)+ CLEAN UP THE STACK 
(R1) ;1F TIMEOUT GO TO 2s 
atk TS THERE 11-L? 
#-1,CLKSTA Ss ; YES-- SET STATUS TO KW11-L 
Pc, ST.LCLK j START THE KW11-L 


(SP)+, (SP)+ SCLEAN UP_THE STACK 
tae see cate RESTORE THE TIMEOUT VECTOR 


+, ;RESTORE R 
#SW06,d#C.SWR  ;SOHZ OR Eouz? 
4§ i BRANCH IF 60 
#20, aeTICKMS —;SETUP TIME PER 
20000. HTICKUS’ ; TICK FOR SOHZ 


5 
#16, O8TICKMS ;SETUP TIME PER 
HIbb66. ,OKTICKUS ;TICK FOR 6OHZ 


RETURN 
wSHOS, , aac. SWR sALLOM., SOF THARE TIMEOUTS? 
wSRVCLK OPKV = :SETUP THE KW11-P VECTOR 
aPkv+2 
fi oPKB sCOUNT ONE TICK 





— ee ee a ees 
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DERPK ST.CLK = CLOCK STARTUP POUTINE 
S738 Oe2602 odle777 Cools 156564 MOV 8115,aPKCS s"INT.EN.” COUNT DOWN”, “MODE 1 (REPEAT:”, 
7% fob INE FREG™, AND "RUN* 
f3e 022610 c00207 18: RTS pC 'R 
738 (92212 ST.LCLK: 
5740 Oe26le 032797 oo0040 001246 BIT aSWOS,a8C. SUR zALLOy SOF THARE TIMEOUTS? 
Ere Nerzes 022646 156552 MOY eSRVCLK aLKV =- SETUP THE KWll-L VECTOR 
Q12e777 000300 156546 MOV aLkvs2 
° deeb st te777 000100 1s654e MOV #105" ack 5 START THE KWLI-L 
44 Bassao 18: RTS PC * RETURN ; 
aot? 13746 001264 SRVCLK: MOV DSTICKMS, -(SP) TIME PER TICK.IN MILLISECONDS 
Oze6S2 904037 036144 JSR  —° RO, asRPTAR -COUNT THE ELASPED TIME 
a9 O2e656 000002 RTI RETURN AFTER INTERRUPT 
| bree carer caesarean anggetenttenentnnnenneeesseneenene 
: #THIS aby SIRE 5 LOADS A READ HEADER AND DATA COMMAND OR A SEEK COMMAND 
e754 saIN NTO DPB.B+2 AND OPB.C+2, DEPENDING ON THE STATE OF “CONTROL SWITCH” 
E5ee + JSR _—- PC, @SLDCMD 
| 2s an 
| £569 022660 032737 OOG200 00124 LOCMD: BIT #SWO7,d8C.SWR  ;D0 EXPLICIT SEEKS? 
| 5761 O22566 001007 BNE 5 
aye Deee70 Sie? 173 003516 MOV SREADHD, 280P8.B+2 ; sNO--SET UP FOR READ HEADER AND 
| deeb76 1 173 003536 HOV SREADHD, J8DPB.C+2 DATA COMMAND 
eee seed 00010$ 003516 1S MOV #SEEK,38DP8.8+2 ;SETUP FOR SEEK COMMAND 
£766 022714 012737 000105 903636 MOV #SEEK, J8DPB.C+e 
| 576 000207 es RTS PC 
o763 reeTTL CALL A CALL RPOW DRIVER USING “DPS At neta 
| §770 'SBTT L CALL 2 CALL RPOY DRIVER USING “DPB.A” 
| §771 3 #THIS NE WILL GALL THE RPO4 DRIVER AND THEN WAIT ON THE FUNCTION 
2778 i419 COMPLETE. IF AN ERROR OCCURS IT IS REPORTED. 
| 5774 tt FILL “DPB” WITH COMMAND INFORMATICN 
| $775 14 JSR RO, @#CALL.A 
| 8776 a *# RETURN 
tee 1 CALL.A: 8SESC :NO ESCAPE ADDRESS 
| «Bore FEEIES poabe, Babbee SR RO SER DS i OALE PON DRIVER 
| 2780 022734 003474 DPB.A 
teerao 003512 1S: Fe JeOPB.A+I6 s DONE? 
BEQ bs NO=-LOOP 
bee? 1 BOL : IF NO E 
| 5785 ot 37 991200 MOV #2, SESCAPE * ESCAPE TO es ON ERROR 
278 13737 00350 1306 MOV DeOPB.A+12, a8CYL:OS ;CYLINDE 
il 03505 O0l212 MOVE © @UDPB.A+11 ,QNTRK.DS ;T 
: 6§7e8 113737 001310 MOVE — @#DPB.A+10,08SEC.0S {SECTOR 
| §789 1 l2 MOV BOPB.A+16,-(SP) ; Fate JERROR INDICATOR ADDRESS 
| £790 923004 ee 4026 JSR PC, JHERIND FORM DISPATCH INDEX 
i 4 
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MAINDE 
DERPKC.P1l CALL.A = CALL RPO4Y DRIVER USING “DPB.A” 
5791 923019 : auD {SP)+,PC sREPORT PROPER ERROR 
Beanie 1 A RR 4 !PARITY ERROR 
O20] 104043 ERROR 43 “UNSAFE ERROR 
20 | ERROR 44 ?NON-170 ERROR 
579% Oesdee 104045 ERROR 45 170 ERROR 
Oe 313700 001270 2$: MOV GEBYPASS, RO > TAKE ERROR EXIT 
F Oe 3$: RTS ;KETURN 
5 ERELKKASELLELLALALAELEAELELALESLLLALALELLLLALSEAAAALAASLLLEALES 
5801 *SBTTL cALL 8 - CALL DRIVER “DPB. B” 
E802 ;#THIS ROUTINE IS THE SAME AS “CALL.A” EXCEPT FOR THE DPB USED AND IF 
33 taTHE C A HEADER AND DATA THE HEADER (CYLINDER, TRACK, 
:#AND SECTOR) READ IS CHECKED FOR VALIDITY. 
580s > #CALL 
5806 : FILL DPB 
5307 3 ISR RO, d#CALL.8 
2a09 ste adrene 
€810 023032 005037 001200 CALL.8: CLR JSSESCAPE NO ESCAPE ADDRESS 
5811 0232036 004037 032766 ISR RO, J8RPOY >CALL RPO4 DRIVER 
Sele O23042 903514 DPB. 
5813 023044 000772 BR CALL.B 
5214 023046 005727 003532 1S: TST OPS. B+16 s DONE? 
| Seis ge0se 001775 BEQ 18 :NO=-BRANCH 
| §B16 100031 BPL ?BRANCH IF NO ERROR 
| 5817 023056 Oie737 023132 001200 MOV 82S, SESCAPE >:ESCAPE TO 2$ ON ERROR 
| §818 023064 013737 003526 001306 MOV aeDPe. tle,aacyt.OS CYLINDER 
| §gi9 des07e 113737 003525 901312 J8OPB.B+11,a8TRK.DS : TRACK 
| 65820 023100 113737 002524 001316 MOVE # a8DPB.B+10,a8SEC.DS :SECTOR 
5821 023108 012746 002532 MOV #DP8.8+16,-(SP) ;STATUS/ERROR INDICATOR ADDRESS 
5822 Oesile 004737 Oe4026 JSR PC, J#ERINOX FORM DISPATCH INDEX 
ee3 Oe3116 052607 ADD (SP)+, PC : 
023120 104041 ERROR 41 : 
| 5825 Oe3lee 1O4Oae ERROR 42 PARITY ERROR 
| Se ite cot 7 
186 1 ERROR 44 *NON-170 ERROR 
| eesg pease Arava 001270 2s GRR deavPAss.RO TARE ERRGR EXIT 
| 5830 peat BAB? BR 4§ ? . 
| §831 023140 123727 003516 000173 3S CMP8 § a8DPB.B+2,8READHD ;DOING IMPLIED SEEKS? 
| & Se3108 DOs? 024306 FoR RO,aaVERIFY —-;VES-*G0 CHECK THE DATA 
t J&. > , = 
—«-BESs Beslan Bbses, OPE.B+10 
_ §83S 023156 032737 O40000 001246 4S: BIT SSW14,a8C.SWR  ;STALL? 
| §836 023164 001403 BEQ S$ :NO--BRANCH 
5837 Oe3166 OO4037 O24144 JSR RO JeSTALL i YES-=CALL STALL ROUTINE 
538 023172 001420 “WORD STALL “STALL TIME POINTER 
023174 9s00200 Ss: ATS RO > RETURN 


Seyi reTTL CALL Ce CALL ROY DRIVER USING “bePc’ 
£643 THIS ROUTINE IS THE SAME AS “CALL.B” EXCEPT FOR THE DPB USED. 
Beat ie FILL OPB 

EB4e * JSR RO, @#CALL.C 





<n ee oe - reer = te oe ee oe 
; 
My 
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DERPKC.P11 CALL.C - CALL RPO4Y DRIVER USING “OBP.C” 


a4 3% RETURN 
9 023 ? 901200 CALL.C: CLR SSESCAPE sNO ESCAPE ADDRESS 
B50 a8 Bosaa? Boe5ee is Ra aaPos ee GeoM DRIVER 
25e5 53st oS o03ss2 1$ ee SabPa c+16 DONE? 
Bees Bessie Byes a C3 IND =LOOP 
5855 023220 10003 BPL s VES BRAN H IF NO ERROR 
BBS6 Desese ot 76 001200 MOV 23, SES ape CAPE TO 2$ ON ERROR 
1 46 001306 MOV a80PB.C+12,aKcYL:OS ;CYLINDER 
£958 23236 113737 O00354S O0l3l2 MOVB @8DPB.C+11,a8TRK.CS if K 
S859 Oese44 113737 003544 001310 MOVB © JaDPB.C+10,d8SEC.DS i SECTOR 
5860 Oe3seS2 beri 003552 MOV #0PB.C+16,-(SP) ;STATUS/ERROR INDICATOR ADDRESS 
5861 023256 024026 ISR PC, J#ERINDX PORN ISPATCH INDEX 
5862 Oe32b2 052607 : (SP)+,PC ;REPOR PROPER ERROR 
Bees fescee | ipuoNe ERROR ue S paRITY ERROR 
5865 0232070 104043 ERROR 43 :UNSAFE ERROR 
bEe8 dese7e 104044 ERROR 44 ;NON-1/0 ERROR 
586 104046 ERROR 45 170 ERROR 
5868 023276 013700 001270 2s MOV JeBYPASS, RO :TAKE ERROR EXIT 
5869 Oe3302 00400 BR 3$ 
| §870 023304 1e7e7 ".3S36 0001732 3S: CMPB § J8DPB.C+2,sREADHD -DOING IMPLIED SEEK? 
5871 Oessi2 OO1003 ~~ BNE 4 sNO--EXIT 
5872 004037 ul+306 3B conto DVERIFY *YES--CHECK THE DATA 
BS No 332¢ heen 040000 001246 4S: BIT SSW14,a8C.SWR  ;STALL? 
| §875 001403 BEQ c$ :NO--BRANCH 
| 3878 e332 O04037 o24144 JSR RO, J#STALL *YES--CALL STALL ROUTINE 
14 : tay L N 
023336 001420 WORD STALL *STALL TIME POINTER - 
278 000200 SS: RTS RO . 
zeae ; LHLERALALALALLLLLELELHELLLELALELLLELELLLLE SELL LLL LRELE LLL EELELE 
555 DRVCAL - ALL “OT; 
t9e3 s#THIS ROUTINE IS THE SAME AS “CALL.A” EXCEPT FOR THE DPB USED AND 
| Seay AN ERROR LOCATION "ERR. CT” Is EXAMINED. IF ERR.CT IS EQUAL TO 
| §8ss I ISERFLC EXIT IS 10 THE NEXT TEST. 
| §eg6 j CALL 
| §997 +8 FILL DPB 
5888 2 i ISR RO, 2#ORVCAL 
eeen 7 RETURN 
| §891 oe3342 005037 001200 DRVCAL: CLR DeSESCAPE NO ESCAPE ADDRESS 
| §892 023346 005037 001 35¢ CLR SEHCEFLG i CLEAR WRITE CHECK ERROR FLAG 
| see Biss binore ae | 
383 ei 003572 1S: ae JSOTADPB+16 : DONE 
1775 BEQ 1$ *NO--LOOP 
5538 tere 10000 BPL 12s *YES--BRANCH IF NO ERRORS 
£990 000137 ce4006 125: INP 108 
901 023400 138: 
E902 023400 012737 023454 001200 MOV #2, SESCAPE ;;ESCAPE TO 2$ ON ERROR 





/ 
CALL USING “OTADFS” 
306 MOV dsOTADPB+le, gest. DS ;CYLINDER 


001 
3 6S palais MOVB  g@#DTADPB+11, d8TRK Be ; TRACK 
1310 MOVB  @8DTADPB+10, d¥SEC. 


zane ested ples Boaace Noy _aQTADRe 1b, °(SP) istatis enon 10 INDICATOR ACORESS 
beso yr PC {REPORT PROPER ERRGA 


RROR PARITY ERROR 
43 ;UNSAFE ERROR 
44 sNON-1/0 ERROR 
45 RROR 
000015 001102 2%: CMPB 40 s«#15, eS TSTNM i Tecr 15? : 
#17,aaSTSTNM © ;TEST 17? MINE 


Zin 


DRIVER (RPO 


re 

fu 

Rg 
nee 

Ba 

33 


3 
fe 
: 
: 
8 
B 
3 
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DERPKC.P11 DRVCAL - } 
5917 Oes47e 001133 BNE : NO--BRANCH 
g 74 122737 000151 003556 C BWRCKD, 8DTADPB+2 :DOING A WRITE CHECK? 
6919 O23S02 001127 BNE = NO- 
032737 O40000 003604 BIT #81714, aeRP.REG+IO ;1S “WCE“=1? 
Bass pSseis pera? Brt SUNHIBTT Le 
023514 000020 177570 BIT 8SWO4, JUSWR INHIBIT WRITES? 
5923 022522 001117 BNE 8S =-BRANCH 
past deseed 000161 003556 MOVB suRITE 38 gaptaoPar® Wi ete oe FOR A WRITE 
1200 CLR aase SCAPE ADDRESS 
5926 023536 004037 152 RO, J#RPOY '00 THE THE WR 
2354 oeseug Soascd RO 
| 5929 023546 005737 003572 3S: TST JSsDTADPB+16 ; DONE? 
00 Q NO--LOOP 
east N93554 1 4 ?YES--BRANCH IF NO ERROR 
S932 023556 01 023762 001200 MOV #8$, SESCAPE sESCAPE TO 8$ ON ERROR 
5933 023564 013737 002566 001306 MOV sad TROPBtie, aacvt Ds CYLINDER 
5934 023572 113737 003565 001312 HOVE eb TADPB# IT, gaTRK 3 : TRACK 
zesp eaear4 Aisa? poses HOV ae gt 98 SECTOR INDICATOR ADDRESS 
| 5937 Desble 004737 O24026 JSR boa DISPATCH H INDEX 
5938 16 062607 ADD re REPORT 
| 5339 eee 14041 ERROR en eae: 
Bay {PNM ERROR 45 
| §942 023626 104044 ERROR *NON-170 ERROR 
| 5943 e360 10405 ERROR 45 1/0 ERROR 
| Boag Hic73, QO015) C0355 WS: = OVE) SARCD, BAO TADPBYC COP RITE. CHECK DATA 
| Baap Gesews bosses BTAOP 
RG ES BS omere ws, apron caes 
Irena H . 
| eels eae ge tO = 
rxwas: — 
| 5951 23660 tie 032766 SR 6, aeRPOY *D0 A 2ND WRITE CHECK 
| sees ee ee Opes 37 BS 003572 6$ net DeDTADPB+ 1S DONE? 
| 5955 023674 001775 : BEQ 6S ?NO=-LOOP 
| 5956 023676 100031 BPL~SsésSS *YES--BRANCH IF NO E 
| 5957 eat 012737 000001 001352 7S: MOV #1, BNCEFLG *SET THE WRITE CHECK ERROR FLAG 
| $958 023706 012737 Oes7be 001200 MOV #8$, SESCAPE >;ESCAPE TO 8$ ON. ERR 
| 
} 
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AL - DRIVER (RPO4Y) CALL USING “DTADPB” 


eau 


8 


re 
chen eaves 


E 


BaaRREGRSe 


SSSe6 
£Wru--O 


me = ne ee er tN 





MUV dBOTADPB+12e, d#CYL.OS s EYLINOER 
MOVB : Pet 1, d8TRK.0S ; Bree 
MOVB #DTADPB+ 10° rt: . OS ; 


MOV oOTaG +1 T atte OF OR NDICATOR ADDRESS 
JSR PC aoe ig, (SP ’ foam a, NDEX 
D (SP)+, PC REPORT PROPER ERROR 
RROR 4 
RROR 4 becarry ERROR 
ERROR 43 UNSAFE ERROR 
ERROR 44 NON-170 ERROR 
ERROR 46 *FATAL WRITE CHECK 
8S: BIT #SW09, J#SWR ;LOOP ON ERROR? 


cre GaERR. .CT, auserFLés ti e0 a NE eT TEST? 


ie] 
9S: MOV aaBYPASS, RO ?YES--GET EXIT ADDRESS 
ids: BIT eSWi4,aec.SWR  ;STALL? 


1 :NO=-BRANCH 
ISR RO. JeSTALL YES--CALL STALL ROUTINE 
.WORD STALL? *STALL TIME POINTER 
11S: RTS RO 
Ene tian bee 
Tals ERIN X = FORM ERROR INDEX 
#THIS ROUT R INE | FORMS AN INDEX THAT WILL BE USED TO DISPATCH 


OPER ERROR CALL. THE INDEX IS FORMED BY EXAMINING 
LATHE oF TUS ERROR INDICATOR OF THE APPLICABLE DPB. 
ii *INDEX STATUS/ERROR 
+ 0 BIT14 {B1T13B1T08 
:# 2 BIT1I'BITIO 
‘i 4 BITIEIBI TON 
+i 6 BITOS'#BITO3!<BITO9 & COMMAND=NON-1/0> 
ie. a? BIT06!<BITO9 & COMMAND=1/0> 
2% JSR #0PB+16,-(SP) | ;ADDRESS OF STATUS/ERROR INDICATOR 
2 JR PC, J#ERINDX *FORM INDEX 
* RETURN > INDEX IS ON THE STACK 
ERINOX: MOV RO,-(SP) ;SAVE RO 
MOV R1’-(SP) ; SAVE Ri 
MOV 6(5P).RO TATUS/ERROR INDICATOR POINTER 
MOV (RO), a#SVSTAT EVE THE STATUS/ERROR INDICATOR 
CLR R *START INDEX AT ZERO 
BIT (PC)+, (RO) NDEX oF 
"WORD  BITI4!BIT13¢B1T08 
BNE Ss ; YES--BRANCH 
IT (PC)+, (RO) FORM PARITY ERROR INDEX (2)? 
“WORD BITLI!BITiO 
BNE ; YES--BRANCH 
BIT (PC)+, (RO) “FORM UNSAFE INDEX (4)? 
. WORD BTiete1T04 
BNE ; YES--BRANCH 
BIT (PC)+, (RO) *FORM NON-1/0 ERROR INDEX (6)? 
.WORD. BITOS!BITO3 
BNE 2s ; YES--BRANCH 
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Se 


i JSR __—- PC, A#THOMS 
RETURN 





6015 O24074 032710 BiT (PC)+, (RO) FORM 1/0 ERROR INDEX (10)? 
516 ey :HORD 81706 
1 1 8 1 ; YES--BRANCH 
6018 O24102 BIT (PC)+, (RO) ‘SOFTWARE TIMEOUT? 
6019 l . WORD py T09 
1 BEQ sNO--FORM INDEX OF 0 
6021 i o001S0 177762 cree #150, -16(RO) sYES--1/0" 
btes ate 1$: ine ff ? INDEX=10---ERROR=45 OR 46 
23: NC Ri : INDEX=6---ERROR=44 
6025 024124 3$: INC Ri : INDEX=4---ERROR=43 
Ee 024126 4g: NC Ri : INDEX=2---ERROR=42 
Peat ae 000006 = Noy fi (SP) RET AN INDER 70 USER 
pose pea ise MOV (SP)+,R1 ; oye Ri 
6030 024140 MOV (SP)+'RO *RESTORE RO 
B03] d2414e2 RTS PC “RETURN FROM CALL 
6033 $ SREELERRELS EAE KEELE KEELES ELS HARE ELAR LER LE KL SES LERAN ERE R EEL SS EEE 
$034 ’SSTT ° A S COMPLETE 
6035 THIS ROUTINE WILL PROVIDE A STALL IN MILLISECONDS FOR A SPECIFIC 
6036 : OF TIME IF BIT13 OF C.SWR = 0 OR A RANDOM AMOUNT OF TIME 
6037 :#IF BIT 13 OF C.SWR = 1. 
e038 **#5TALLI CONTAINS SPECIFIED TIME FOR TESTS 0-6 AND STALL2 
*#CONTAINS THE TIME FOR TESTS 13-16. 
6040 ?#CALL 
6041 2% JSR RO, JaSTALL 
pode 2x TIME POINTER ;WHERE TO FIND THE STALL TIME 
6044 024144 013046 STALL: MOV  @(RO)+,-(SP)  ;PICKUP STALL TIME 
6045 024146 032737 O20000 o0120% BIT #SW1i3,d8C.SWR  3USE A RANDOM TIME? 
BOMB 024154 001406 BEQ 1§ :NO=-BRANCH 
6047 024156 004737 021676 ISR PC. J#SRAND *YES--FORM RANDOM NUMBER 
Bove Oe4l62 013716 Oec0e4 MOV SeSLONUM, (SP) AND USE IT FOR THE STALL TIME 
024166 042716 177700 BIC #1077, (SP) BUT NEVER > &4 MILLISECONDS 
60S0 O2417e OOSo4E CLR -(SP) “CLEAR TEMP. LOCATION 
6051 024174 162766 000001 oco0002 25 SUB #1,2(SP) *MORE STALL REQUIRED? 
6052 Oe4e02 103407 BLO 4g + NO--BRANCH 
6053 Deve04 12716 O00144 MOV ##D100, (SP) ‘STALL FOR ABOUT 1 MILLISECOND 
6054 10 3$ TST RO *NOP TO KILL TIME 
6055 evele ooc000 DE O(SP) 2C 
B06 Oe4 001374 BNE 3§ *LOOP IF MORE COUNTS NEEDED 
| 6058 Oe42e2 Oe2b26 4S: CMP (SP)+, (SP)+ CLEAN OFF THE STACK 
| 6059 Oe4ze4 RTS RO *EXIT 
EOE 
poe $ ERELKEL EL ESA EKSEL ESL SS ESESS SE RE LES LE GENES EREL SES EEE EEE ELSE SEREK 
6063 "SBTTL TWOMS - STALL FOR < be BETWEEN SEEKS IN TESTS 10- - 12 
| 6064 ;#ROUTINE TO PROVIDE A 2 MS STALL AFTER A SEEK OPERATION IN THE SEEK TIMING 
6065 TESTS (TESTS 10, 11, 8 12). THIS STALL IS SPECIFIED BY THE VENDOR (ISS) 
a *#OF T ISK DRIVE. "THIS STALL TIME IS NOT INCLUDED IN THE CALCULATED 
6068 : nme 
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TWOMS - STALL FOR 2 MS BETWEEN SEEKS IN TESTS 10- - 


Sescsse 
funNifuw 
sys 3 


S 


=} 
= 
IRE 


DePS, -(SP) sSAVE THE PRESENT PROCESSOR STATUS 
#(5432.),a8PS SET THE PROCESSOR PRIORITY TO 5 
aPKV, -(SP) SAVE THE OLD CLOCK VECTOR ADDRESS 
#15, OPKV “SETUP NEW VECTOR ADDRESS 


#200. SPKB "LOAD THE CLOCK BUFFER 
#101, aPKCS sea THE CLOCK 


IT FOR 2 MS 
INCREMENT STACK FOR RETURN 


(opps, aPKV RESTORE OLD CLOCK VECTOR 
{ SP)+, @ePS oR STORE THE OLD PROCESSOR STATUS 


{SEETHER RSSTRSSURE RESET SRSRESE REL SRN SURTSO RN TURARECRANERENERRREE 


VALIDATE HEADER ON IMPLIED SEEK 


S 
s #ROUT INE TO SOFTWARE COMPARE HEADER ON IMPLIED SEEKS 


2 


meen om 2 
82 


San 
8 888 
Bee 


=\=\=)=4 
ee pe 
7” 

ul 

= 

=) 


RO, d8VERIFY 


ADR POINTER ADDRESS OF DPB+10 (SECTOR NUMBER) 
RETURN 
RL 5{SB) 
aEnto? Ri BUFFER PS PAT BLY FRR CYLINDER NUMBER 
OuBUFFER, 2(R1) 
DUBUFFER+2, (RL) ; fa TRACK/SECTOR? 
5 dec oe THE 
QUBUFFER+3, OHTRK.RO ;RECIEVED CYLINDER, TRACK, 
ONBUFFER+e J8SEC.RD :AND SECTOR 
(R1)+, a8SEC. 
(R1)+. a8TRK.DS 
toe geecnbES” E TO 2$ ON ERROR 
(RO) *MAKE IT TEST PC+4 


E 
)+,R ;RESTORE R1 
RO ;EXIT 


eTTL GRCHOO © INITIALIZE THE DRIVE FOR THE TIMING TeeTa 


~ INITIALIZE THE DRIVE FOR THE TIMING TESTS 
LL PERFORM A eee fit. FOLLOWED BY 


WI 
4A “RECALIBRATE” ON THE DRIVE UNDER TEST 
; HNOTE: THIS ROUTINE DESTROYS Rl AND RY 


PCKMNGCMSCKMM CKO Orrmmrwrca 
Pe I TT TT eT OT eT Ye eT ey eT er ed ed ed ed ed el ed 
SEM shi Nikt i Metbet ott wae ttt abt bet th petal ited =] 





ee 
i 
' 
{ 


RO, SRCHOO iRe A MASSBUS INIT. AND RECAL 
TURN HERE IF NO ERROR 

sRETURN HERE ON ERROR 

; INCASE OF ERROR (TYPTIM) 


#ISR, IRPVEC sSETUP INTERRUPT VECTOR 
JHRPADR, R4 * PICKUP BODRESS OF RHCS1 
#BITOS,RHCS2(R4)’ ;MASSBUS IN 
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DERPKC.P11 SRCHOO - INITIALIZE THE ORIVE FOR THE TIMING TESTS ; 


1 4 LR # Kz CTOR=0 
t Baws Gots, Bosses LR Stbtabreel EP TNOER 28 
i 024454 Ole? 37 000107 o03SS6 HOV ged Taope+e jroo = RECAL IBRATE 
13) SSuuee nee GER RO Sekpnd OLE SHE DRIVER 
132 Oe447e 003554 DTADPB : DPB POINTER 
133 Ge4474 900440 SR 4g ae 1S FUL 
134 Oe4476 005737 003572 1S: TST DTADPB+16 WAIT ON DONE” 
i Se BBL i XIT IF NO ERROR 
i Pe debe 400039 024562 001200 MOV #35 ses SCAPE sEecare 10. 10 3s oe ON Feat 
138 024514 013737 901306 MOV au tareste, aucyt DS ; 
113737 003565 O0131e MOVB +11 ‘hee 
113737 003564 001310 MOVB SAD TADPBSIO’ SaSEC: 0S SECTOR 
1 003572 MOV #DTADPB+16,-(SP) ;STATUS/ERROR INDICATOR ADDRESS 
G24542 004737 Oe4026 JSR ; (Seep :FORH DTSPR TCH INDEX 
peueen PeaBNi ERRon ; ey 
024552 104042 ERROR up {PARITY ERROR 
024554 104043 ERROR 43 ERROR 
O2e4556 104044 ERROR 44  NON-170 ERROR 
024560 104045 ERROR 4S 170 ERROR 
024562 095720 2s: TST (RO)+ Oe te FOR E ERROR EXIT 
024564 o00404 BR 4§ 
024566 O0SO64 O00006 3S: CLR RHDA(RY) Rack ARB Sea OR 0 
024572 005064 O00034 CLR RHCA(R4) tN INDER = 6 
024576 000200 4g; RTS RO * RETURN 


5 SESE SE SESE SEE SE SE SEE DEE SESE EEE SEE IEE SEE EEE EAE EEE EEE EEE EEE REE 
“SBTTL DORTI - RETURN FROM INTERRUPT 
;*THIS IS AN RTI WHICH IS USED BY THE TIMING TESTS 


ooo0d2 DORTI: RTI ;RETURN FROM INTERRUPT 
5 HEE IE HEME HEHEHE HE HEHEHE HE EERE HEE EEE EERE EEE ERE EERE EERE 
“SBTTL STRTMR - START THE TIMERS 
;*#THIE COUTINE WILL INITIALIZE THE TIMERS 
;¥USEL .Y THE “TIMING ROUTI ES 


: 
i ISR PC, J#STRTMR 
g 


: 


RETURN 

024602 104416 STRTMR: SAVREG ;SAVE_RO-RS 
O24604 012709 901314 8TIM.UP,RO :START AT TIM.UP (MINIMUM) 
024610 012701 001 STIM.PT|RI STOP AT TIM.PT 
024614 bosaee 1S: CLR (RO)+ ;CLEAR 
024616 O20001 CMP RO,RI ; 
024620 103775 BLO 1S :NO 
024622 012710 1 MOV #BUFFER,(RO) :SE SeTue Port TER 
Ce4626 01 001314 MOV etCBITL a8 #TIM.UP ;SET MINIMUM TIME TO MAXIMUM 
024634 012737 077777 001332 MOV #tCBIT15,a8TIM.DN :POSITIVE NUMBER 
DevbHe 104420 RESREG ONE STORE RO-RS 

000207 RTS PC * RETURN 


HPLOPPCK PKK CPL CPPCC POMPOM KPMG KOMP POON OOOOMPOPrOrOrrrrrwrm*d 
FO Odes Not 2 ord Se NOPE Eur OD OUT EEO oe SO EWU OB SON Leohoe Soba 


Bb -4 BBO Be 8 Ot bo bh Ps hs he hb bf 2 Bo Bs G2 hs B 2 ho Bs hs h2 Fh 2 Do 2 Pe BP & 2p Hs Hs pW He He 


7[HHBEHBEHBHHHEHHE HEHE HHEHHE HEHEHE HEHEHE HEE HEE HEHE HEEE 
“SBTTL COUNT - THIS ROUTINE COUNTS THE ELAPSED TIME 





ae A a ae ee re ne nee oer 


np eenenenene seEEENE-mEEEORpEeEE — 





LEE LLL ELL LLL LOT, 
BRSRRESSLSSVVRReES é 
RR RSE 

RE 


i 


i’ 
nal 


— 
La 


ECR EERSESERSE 
PRU URS 


Foro fororofurorurore 


US SSIS TSS STATS 


tt me eee ee ee 


001314 


001332 
1S451e 


igua7e 
1s44b2 


1S44S4 
1S4446 


154432 


047304 
is441e 
000002 


2002 
032737 000100 177570 


MAINDEC-11-DERPK-C “MECHANICAL AND READ/WRITE TEST” 
RPK COUNT - THIS ROUTINE COUNTS THE ELAPSED TIME 


ROUTINE WILL AD ADD alte Et ELAPSED ue TO THE AVERAGE COUNTER AND 
NOTE: THIS ROUTINE DESTROYS mn : 


;*#THIS 
it RTA 


ot ia-imh  eeeee 


jscALL #TP.R3 

ii FLAG, RS 

ii PC, J#COUNT 

COUNT: #TIM.UP,Re2 
1 
#TIM.DN, Re 

1S: SPKC, (Re)+ 
OPKC, -2(R2) 

23: SPKC, 4(RS) 
(R2) 

38: (Re)+ 
SeKC, (R2)+ 
aPKC, -2(R2) 

4S: BPKC, (RS) 
(Re) 

SS: (R2)+ 
ones, (Rede 
(Re) 
Boomer i > 
aPKC, ITIM. PT 

me a, ,oaTIM.PT 
- 5 WE T 

sent ROUTH 

MUM, 
satT MILL 


HATABLE: MSGADR1 
MSGAD 

MIN. ALLOWED 

MAX. ALLOWED 


iy 
, 
;# 


TYPTIM: 











MACY11 27(732) 


(RO)+,Re 
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;PARAMETER POINTER 
sFLAG=O=COUNT UP 
;FLAG=-1=COUNT DOWN 


see IT? THE “UP” POINTER 


: YES--BRANCH 
:NO--PICKUP “DOWN” tet 
iLESS one 


ei tie LOW LIMIT? 


VES--COUNT IT 
pS ee THE POINT 
sGREATER THAN PREVIOUS HIGH? 


ideeares PHAN THE HIGH LIMIT? 


POINT’ 
ADD THIS COUNT TO THE TOTAL 


;COUNT THIS READING 
,OeTIM.PT ne THIS COUNT? 


Hae Ear aT 7,10,11, AND 12. 
ALSO CHECK THE TIMES NSURE’ 

HEROTE: THIS ROUTINE 
RO, J8TYPTIM 


AND. TF NOT FLAG THE BAD TIMES. 
TROYS Re-RS 


68 nr tn THE USS 








intimin 


2 me fae ae ne be fms Pe me me ne Fae Pe Pas ene ene ne me 
PSLSERLSESENRVSSSLS 


f 


ER eaeeceeeeres 
Rinintnts 


& 


5 


ninth 


aS 


ro 
o 


¢ 


PERU OR GRR EB REE Sa Noa ouS 


ret Ty “MECHANICAL AND READ/WRITE TEST” 


TYPTIMN - TYPE TIMES 


001145 BNE 
Olee37? O2503e MOV 
Olee0S MOV 
le MOV 
il MOV 
012704 001314 wy 


a: 


peoces 000014 TST 
1527 BEQ 
104400 o404S2 TYPE 
012446 MOV 
004737 021170 JSR 
004737 021414 JSR 
104400 040477 TYPE 
005724 TST 
001421 BEQ 
104400 040612 TYPE 
016446 177776 MOV 
004737 021170 JSR 
004737 021414 JSR 
104400 040504 TYPE 
010346 MOV 
004737 021170 JSR 
004737 021414 JSR 
104400 040477 TYPE 
104400 040461 3$: TYPE 
Ber ie 
021170 JSR 
004737 021414 JSR 
104400 040477 lyre 
rata BEQ 
104400 040612 TYPE 
O16446 177776 MOV 
004737 021170 JSR 
004737 021414 JSR 
104400 040533 TYPE 
010246 MOV 
as 021170 JSR 
021414 JSR 

104400 040477 TYPE 
ean 040470 4g: TYPE 
12446 MOV 
12446 MOV 
MOV 

JSR 

ROL 

BPL 

INC 

Ss: 

JSR 

798 

YPE 

TYPE 

MOV 
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—=— , Potente ten ie | 
~ 

£2 
~ 


Saga h 
o 


RAB 
—~@©e) 


Tw 
on 
<2: 

nu 


or: 
a 
Sy 


hDxzOOD- 


Sa 
An 
3 


cage eae 

Qe) i Weve) 
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3 


2220 
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~ 
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; YES--BRANCH 

; ADDRESS ee fezents NUMBER i 

pian THE LOW LIMIT —e 
me ihe a 


EcAGE 
ine Z MESSAGE POINTER GOES HERE 
ANY COUNTS OCCUR? 


: R4)+ ON THE STACK 
; CHANGE pula TO DECIMAL ASCIZ 
irre ITHOUT LEADING ZEROS 


Us” 
ANY SEEKS BELOW THE LOW LIMIT 
NO--BRANCH 


; CHANGE A3 
TYPE WITHO 


"MAX" 


(R4)+ STACK 
; CHANGE put, °F TO DECIMAL ASCIZ 
*TYPE WITHOUT LEADING ZEROS 


s ANY SEEKS ABOVE THE HIGH LIMIT 


5°2 


31S THE REMAINDER OVER HALF? 
:NO--BRANCH 

;YES--ROUND UP 

;CHANGE TO DECIMAL ASCIZ 
sTYPE WITHOUT LEADING ZEROS 


;PUT -2(R4) ON THE STACK 
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DERPKC. TIMES 


TYPTIM = TYPE 


021170 
025276 004737 poeta 


50 
16 qq 
025320 104400 040577 
6303 025324 000200 
6304 
6305 
£306 
6307 
6308 
6309 
631 
631 
631 
6313 
| 8314 025326 020237 oco2342 
6315 OeS332 001410 
Bs ie Gee Sen 
B18 GebM¥ Ob3402 
6319 025346 013702 O02342 
6320 025352 005720 
6321 025354 000200 
6322 
6323 
6304 
E57 
6328 
6329 
6330 
6331 
eee 020137 002334 
rat 
Paay peeses bOr4i0 
6335 025364 063701 002336 
6336 025370 020137 002334 
6337 025374 003402 
6338 025376 013701 002334 
6339 025402 0057 
6340 025404 
6341 
&342 
6343 
6344 
6345 
6346 


a 


Hee 
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JSR PC, de$S82D ;CHANGE -2(R4) TO DECIMAL ASCIZ 


JSR PC’ d¥SSUPRS TYPE WITHOUT LEADING ZEROS 
TYPE MSGNUM 2"SEEKS TI 
MOV RS, 2 NEX MESSAGE POINTER 
BEQ 7§ NONE EXIT 
cLR R NO MORE THAN 2 
6S: TYPE MSGNON 
73: RTS RO EXIT 


ig TT Cc K NUMB 
;*THIS SUBROUTINE WILL INCREMENT THE TRACK 
*S ell (Re) BY THE AMOUNT SPECIFIED BY ITIS. 


3 #C) 
2 JSR RO, #INCTRK 
$% RETURN RACK NUMBER GREATER THAN LTIS 
t# RET TRACK NUMBER INCREMENTED 
INCTRK: CMP R2, J8LT1S sLAST TRACK COMPLETED? 

BEQ 2s *YES--EXIT 

ADD d#IT15,Re *NO--UPDATE TRACK 

CMP Re, Jel T15 :TRACK TO BIG? 

BLE 1§ *NO--EXIT 

MOV deLT15,R2 ?YES--SET TRACK TO LAST TRACK 
1S: TST (RO)+ “ADJUST FOR RETURN 2 
2s: RTS * RETURN 


JEHHEHHHHE HE EHHBHHHEE HEHEHE EHH EHH 
-SBTTL INCCYL - INCRMENT CYLINDER NUMBER 

TTS ST Ne WILL INCREMENT THE CYLINDER 
}ANUMBER (Rl) BY THE AMOUNT SPECIFIED BY ICIS. 


te JSR _—-RO, A#INCCYL 
+ RETURN sCYLINDER NUMBER GREATER THAN LC1S 
+ RETURN2 :CYLINDER NUMBER INCREMENTED 


INCCYL: CMP R1, deLCisS NDER COMPLETED? 
BEQ 2s” tee. Tt 
ADD d#IC15,R1 *NO--UPDATE CYLINDER 
CMP R1, a#LCis i CYLINDER TO BIG? 
BLE 1§ *NO--EXIT 


MOV d#LC1S,R1 sYES-~SET CYLINDER TO LAST CYLINDER 
1S: TST (RO)+ ADJUST FOR RETURN 2 
es: RTS RO ;RETURN 


eOTTL FILEUF ~ FILL BUFFER WITH ADDRESS DATA’ ee 


cris SUBROUTINE 1S-USED 16 FAL ite ar Ta BUFEER 


H ADDRESSES FROM O TO 21 W 
ph STORED IN CONSECUTIVE MLOCATIONS 


PC, d#F ILBUF 


CALL 
3% JSR 
RETURN 
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ll FILBUF - FILL BUFFER WITH ADDRESS DATA 


ri I 


os 
0 


SeRer Ree Roe 


Tw 
“J 
oOo 
— 


ae 


Oooo ooo00000 
pos fo ps be bs fe pee fe Bes fa 
Ono0oO000o 
frees pawn fmt be Past Pe foe pie 


rURororororerure 


: 


‘ 


Sees tis ts keke RES 


pore rts 


BRS 


FILBUF: JSR . RO,ad#SAVROS ie E_RO-kS 
CLR ;FIRST DISK ADDRESS 


MOV #BUFFER,R1 ‘START FILLING HERE 
1$: MOV #10256, Re DO 256 WORDS 
es: MOV RO, (R13+ ; STORE 

DEC R2 : MORE? 

BGT ei : YES--BRAN 

INC 0 tNO-UPDATE MOIsk ADDRESS 

CMP #t022,RO 5 DONE? 

BGT NO--BRANCH 

ISR RO, J8GETROS RESTORE RO-RS 

RTS PC * RETURN 


SSBTIL CURGUF'= CLEAR GUFFER 


C 
*THIS ROUTINE WILL CLEAR THE BUFFER BY 
HSE TING EACH WORD TO “177400”. 


te JSR RO, d#CLRBUF 


i RETURN 
CLRBUF: JSR RO gasavnis -SAVE RI-RS 
MOV #17740 * WORD * FILL BUFFER WITH 
MOV #8UF) FER “FIRST ADDRESS OF BUFFER 
MOV ene #22. > R3 bast ADDRESS+2 OF BUFFER 
1$ MOV R1, (Ro)+ iE HLL Ho » 9,---249,...5625 
MOV Rl, (Ro)+ *FILL WORDS 2,10,...250,...5626 
MOV R1, (Ro)+ eit WORDS 3,11,...251,...5627 
MOV R1, (Ro)+ FILL WORDS 4; 12)...252,...5608 
MOV R1, (Re)+ “FILL WORDS 5,13,...259,...5629 
MOV RI, (Re)+ FILL WORDS 6;14'.. 254°... .5630 
MOV R1, (Ro)+ ‘FILL WORDS 7,15,.. +885, .. . 5631 
MOV RI, (Re)+ ‘FILL WORDS 8,16,...256,...5632 
CMP R2,R3 ; DONE? 
BLO 1$ NO- BRANCH 
JSR RO, dNGETRIS "RESTORE R1-RS 
RTS RO *RETURN FROM CALL 


j REC NRDDOREURUREEDOUNOSUDUOSELOD SERRE TNDREDENUNE DME NDRIONDEDS 
“SBTTL _CKSCTR - CHECK SECTOR DATA 

; aTHiS ROUTINE IS ar TO CHECK THE DATA BUFFER 

;#FOR ADDRESSES 0 THROUGH 21 WITH EACH ADDRESS 

MG ING STORED IN 256 CONSECUTIVE LOCATIONS 

’ 


3% JSR RO, d8CKSCTR 


3% RETURN 
CKSCTR: JSR RO. @ESAVRIS ;SAVE R1-RS 
SUB #4, iaraee TEMP. STORAGE AREA 
CLR iF FIRST SECTOR 
MOV #BUFFER, (SP) T ADDRESS OF DATA BUFFER 
CLR 2(SP) iN ORS 
1$: MOV #1016, Re LOOP COUNT (16*16=256) 
3g MOV (SP), R3 GET 1ST ADDRESS OF THIS SECTORS DATA 





R1, (R3)+ ;WORD 1 
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DERPKC.P11 CKSCTR - CHECK SECTOR DATA 


6407 001064 BNE 7$ ;BRANCH IF BAD 
6408 peeeee 020123 CMP R1, (R3)+ : 
64 S60 001 BNE 7$ “BRANCH IF BAD 
4] 5be 0 MP R1, (R3)+ : 
4] fey 001 NE 7§ "BRANCH IF BAD 
41 De55b6 020123 CMP R1, (R3)+ “WORD 4 
pill fears Gene a 
6415 025574 peones BNE 73° ‘BRANCH IF BAD 
6416 025576 O20123 CMP R1, (R3)+ ; 
6417 025600 001052 BNE 7$ ;BRANCH IF BAD 
418 O25602 020123 CMP R1, (R3)+ 
B41 025604 001050 BNE 7$ t BRANCH IF BAD 
4 Ge560 020123 CMP R1, (R3)+ 
421 10 OO1046 BNE 7§ ‘BRANCH IF BAD. 
6422 OeS6l2 020123 CNP R1, (R3)+ 
6423 025614 001044 BNE BRANCH IF BAD 
bed Gebb16 183 CMP R1, (R3)+ : 0 
YDS 104 BNE 7§ *BRANCH IF BAD 
6426 OeSb2e2 020123 CMP R1, (R3)+ “WORD 11 
6427 O25624 001040 BNE 7§ *BRANCH IF BAD 
6428 025626 020123 CMP R1, (R3)+ WORD 1 
6429 025630 001036 BNE 7§ ; BRANCH IF BAD 
6430 Gee 020123 CMP R1, (R3)+ *WORD 13 
6431 001034 BNE 7§ ; BRANCH IF BAD 
6432 025636 020123 CMP R1, (R3)+ 4 
6433 O25640 001032 BNE 7$ ? BRANCH IF BAD 
6434 O25642 020122 CMP R1, (R3)+ : 
6435 025644 001030 BNE 7$ *BRANCH IF BAD 
6436 025646 O20123 CMP R1, (R3)+ WORD 16 
6437 025650 001026 BNE 7§ *BRANCH IF BAD 
bY Desb5e 005302 DE B sR INISHED WITH THIS SECTORS DATA? 
Baul Geeees peep; C0100 38: AOD #0512, (SP) YES “FIRST RODRESS OF NEXT SECTOR 
44 ooco26 CMP ##022,R1 DONE? 
eid Wasa ieee BGT _ ;NO-- 
6444 025672 005766 oo0nc2 4g: TST 2(SP) TERROR OCCUR? 
B44S Ge5676 001408 BEQ 6S . : NO--BRANCH 
6446 1 001426 001103 CMPB  a#ERR.CT,aNSERFLG -MAX. ERROR OCCURRED? 
6447 025706 101002 BHI 6$ : NO--BRANCH 
6448 10 013700 001270 cS: MOV J#BYPASS, RO sTGKE FARO ERROR EXIT 
6449 14 062706 O00004 6S: ADD #4, AREA 
6450 025720 004037 037764 JSR RO,J8GEIRIS . ;REST OnE "rire 
Pues Goeree 7$ Ov Ae RY ine TURF W NUMBER 
pues ee ieteos SUB if : dR FOR LD CORT ENGE FROM 
Eee 025734 006204 ASR RY’ ;WORD NUMBER 
6456 025736 042705 177740 BIC ##C37,R5 
6457 O2574e O0i002 BNE 8$ sBRANCH IF NOT A MULTIPLE OF 16 
p58 025744 012705 Oo00040 Be MOV #40,R5 SET TO WORD 16 
025 ie 5 be o25ss2 ADD #25, RS ADDRESS 
6461 O25 16337 177776 OO1126 MOV -2(R3), a#SBDDAT ; ; SAVE BAD DATA 


6462 aed Bos?ee 000002 TST 2(SP) ;FIRST ERROR? 





SaRneoR 
SS ESE SRSN INI SSISS 


RRO oN 
DONOU EWM O 


rene eee 


s 


8 


Bes 


SFLHSRLENSEEGSKERRNG ERD 
22000055 20000000000 


ee ee ee Oe Sa ee ee ee en ee ee ee ee et ey 


RRA RGRNRRRNARRN 


1h 0 B= bb 2 OF b= 2 2 2 = 2 Bs = 6-2 02 Be ho 9 


ee 


ee eee 


AD/WRITE TEST” 
DATA 


“ 


aemesseeeeesSeeSeeoeSeem 


: 


par’ 
w 
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10$ i «NO=-BRANCH 

gD TApPBe 12, aacyl.DS sCYLINDER NUMBER 

JBOTADPB+11.a8TRK.DS : TRACK NUMBER 

9$, SESCAPE s:ESCAPE TO 9$ ON ERROR 
*REPORT THE ERROR 

2(SP) ‘SET ERROR SWITCH 

115 

#11, SESCAPE 


; ESCAPE TO 11s ON ERROR 
é :REPORT THE ERROR 

8SWO9, JsSWR :LOOP ON ERROR? 

#SWO1, d8SWR >STOP DATA COMPARE? 

4 : YES--BRANCH 

S¥ERR.CT, G#SERFLO “MAX. ERRORS? 

aSWOS, dsSWR “REPORT ONLY 1ST ERROR PER SECTOR? 
5 ; YES--BRANCH _ 


; EAESSELLSLSFELASELLSLELELELLLLLELLELELS SELLE LLL AA LALLELESLELELE 


R_70 DATA PATTERN 
THE 


TINE WILE MOVE THE 16 OF 
WFERNCINTO THE BATA BUFFER. 


;PATTERN NUMBER INDEX TO RO 


RO, dsSAVRIS ;SAVE_R1-RS 


sBUFFER. RI FIRST ADDRESS 


#17, STSTNM 

rs} 

BUF, R1 

DSDTADPB+4,R2  ;WORD COUNT 

CRaserCRDS? ieove hoes [ine Ga reas 
(R3)4; (R14 > MOVE WORD A iio TA BUFFER 
(Rane caise MOVE Hosp @ INTO DATA BUFFER 
(R3)+, (R14 : WORD 5 INTO DATA BUFFER 
(R3)+, (RI) sMOVE WORD & INTO DATA BUFFER 
(R3)4, (R1)+ : WORD 7 INTO ATR BUFFER 
(R3)+, (R1)+ : WORD 8 INTO DATA BUFFER 
(R3)+; (R1)+ : WORD 9 INTO DATA BUFFER 
(R3)+,(R1)+ : WORD 10 INTO DATA BUFFER 
(R3)+,(R1)¢ : WORD 11 INTO DATA BUFFER 
(R3)+, (R1)+ : 12 INTO DATA BUFFER 
(R3)+,(R1)+ : WORD 13 INTO DATA BUFFER 
(R3)+, (R1)+ : WORD 14 INTO DATA BUFFER 
(R3)+,(R1)¢ : WORD 15 INTO DATA BUFFER 
(R3)+, (RL)+ sMOVE WORD 16 INTO DATA BUFFER 
fiers Ha 

RO, J8GETRIS > YES--RESTORE RI-RS 

PC * RETURN 





DERPKC.Pil SETSUF - SET SUFFER TO DATA PATTERN 
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6519 at ai > Mk CEE co ae ed 
it DATCMP = DATA COMPARE 
1 #THIS ROUTINE COMPARES A 16 WORD DATA PATTERN 
ESE g tegen THE DATA BUFFER 
e535 ; MOV :PATTERN NUMBER INDEX 73 RC 
&525 + 3k PC SaDATCHP 
bess é er 
£528 904037 037744 DATCMP: JSR RO S¥SAVROS sSAVE RO-RS 
6529 pebeDE 612701 644134 V sBUFFER *FIRST ADDRESS OF BUFFER 
£530 Sebels is 000017 901102 CMPBséi7, Brotha 
653 1002 35 
6 013701 oo01212 MOV 
bead 1 9g Hoy Sa thoes +4,R2 ;WORD CO 
6535 O26240 O16003 002434 18: MOV PAT.PT(RO),R3 PATTERN POINTER 
bea a 1 SUB (R34, (R1)+ sCHECK WORD 1 
§538 pepsue ters BNE 4§ “BRANCH IF DIFFERENT 
6539 026250 162321] SUS (R3)+, (RL)+ > CHECK 2 
6540 Oe6252 001043 BNE 4 :BRANCH IF DIFFERENT 
6541 026254 16232] SUB (R3)+, (RL)+ > CHECK 3 
OebeS 00104! BNE 4 “BRANCH IF DIFFERENT 
| 64 162321 SUB (R3)+, (RL)+ *CHECK WORD 4 
6544 Oebe62 001037 BNE 4 ;BRANCH IF DIFFERENT 
| Bet debebs 1ge321 SUS (R3)+, (R1)+ ‘CHECK WORD 5S 
I BNE 4§ "BRANCH IF DIFFERENT 
ppia55 BE "tactic! sCHECK IF DIFFERENT 
Bes Geers essai SUS -(R3)+,(R1)+ = CHECK WORD 
| 550 Oebe76 001031 BNE 4g _ $BRANCH IF DIFFERENT 
| $551 162321 SUB (R3)+, (RL)+ *CHECK WORD 8 
| §552 001027 BNE 4 *BRANCH IF DIFFERENT 
| §553 162321 SUS (R3)+, (RL)+ >CHECK WORD 9 
| 6554 po1026 BNE 4 *BRANCH IF DIFFERENT 
| 555 162321 SUB (R3)+, (RL)+ *CHECK WORD 10 
B556 001023 BNE 4 *BRANCH IF DIFFERENT 
162321 SUB (R3)+, (RL)¢ *CHECK WORD 11 
| 6558 001021 BNE ?BRANCH IF DIFFERENT 
| 6559 ibese SUS (R3)+, (RL)4 : 12 
| 6560 1017 BNE 4 : IF DIFFERENT 
6561 162321 SUB (R3)+, (RL)+ > CHECK 13 
b5be 001015 BNE 4g, *BRANCH IF DIFFERENT 
162321 SUB (R3)+, (RL)+ *CHECK WORD 14 
| 6564 001013 BNE 4§ *BRANCH IF DIFFERENT 
| 6565 162321 SUB (R3)+, (RL)+ >CHECK WORD 15 
| §566 001011 BNE 4S *BRANCH IF DIFFERENT 
_ §567 ibesel Sus (R3)+, (RL)+ *CHECK WORD 16 
I 4 “BRANCH IF DIFFERENT 
pre 062702 000020 ADD #1D16,Re2 ;DONE  ? 
| 6570 001333 BNE 1$ : NO--BRANCH 
| g871 005/2b 3 TST (SP)+ YES == CLEAN UP S/ACK 
be72 37 037770 J5R RO, a4GETROS RESTORE RO-RS 
, €574 010104 4; MOV R1,R4 - ;FORM THE WORD NUMBER 





















DERPKC.Pil DATCMP = DATA COMP 

beba68 hf 000017 001102 CMPB 817, STSTNM 
i 8 108’ 

12704 044134 Bue 1 ER,R4Y 

BUF ,R4 


mo 
-c 


906204 ASR RY ;WORD NUMBER 
1 MOV R3,RS "FORM ADDRESS TO CONTINUE FROM 
466005 002434 SUB Pat. PT(RO) ,RS 
062705 O26244 ADD #2$,RS s ADDRESS 
Desa ADD -(R3).-(R1) *RECONSTRUCT THE BAD WORD 
10137 001122 MOV R1,a8$8DADR = ;SAVE THE ERROR INFORMATION 
10337 O01i20 MOV R3' ae : 
le} O01 1g6 MOV (R1)+,a8SBDDAT ; 
1 1124 MOV (R3)+,08SCDOAT 
00571 TST (SP) 1ST DATA COMPARE ERROR? 
oc BNE 6 NO- Bett 
13 003566 001306 MOV JROTADPB+12, acyl. DS ;CYLINDER 
113737 003565 001312 MOVB  @S8DTADPB+11,a8TRK.DS ; TRACK 
113737 003564 001310 MOVB § a8DTADPB+10;as8SEC.0S :SECTOR 
D16600 OO0016 MOV 16(SP),RO ;GET TEST PC+4 
012737 026510 001200 MOV #5$, SESCAPE ESCAPE TO S$ ON ERROR 
10401 OR 13 REPORT THE ERROR 
ytd 000014 5S: V 14(SP),RO ;PATTERN NUMBER IND 
105116 COMB 3s (SP?) *SET THE ERROR SWITCH 
OO0404 - BR 7§ 
012737 026530 001200 MOV #7, SESCAPE s:ESCAPE TO 7$ ON ERROR 
04014 ERROR 14 *REPORT THE ERROR 


177570 7§: BIT #SWO1, d8SWR ;STOP DATA COMPARE? 





001305 BNE --EXIT 
lea73? 001426 001103 chee JSERR.CT, aNSERFLE ;HAX. ERRORS? 
01376 001270 o00016 HOV #8./PASS, 16(SP) ; ae EXIT 

026560 000115 8S: IMP (RS) sNO--CONTINUE AT NEXT WORD 


ge yn I OOo ee 
ish I fa TA BUFFER WORDS) WITH 
py yc a ie RS naaes Sieh MILL 
J's BASE OF THE RANDOM NUMBER GENERATOR FOR THE 
HABE TE: THIS ROU ROUTINE DESTROYS R1 AND Re 
tt JSR RO, d8F ILRAN 





REESE 


3% RETURN 
026562 O01 134 FILRAN: MOV #BUFFER,R1 
026566 oer Baga; 001102 CMPB 4 s«#17, STSTNM 
1002 BNE 
13701 o01212 MOV 
02708 000026 2s MOV 
027066 I$: JSR 


| “DERPK-C “MECHANICAL AND READ/URITE TEST" — MACYIL 27(738) 14-OCT-76 10:36 PAGE 134 
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DERPKC.Pil FILRAN - FILL DATA SUFFER WITH RANDOM PATTERN 

026614 903374 BuT 1s 

026616 00200 RTS R 
opts fA alata ttl baigpatg tteh d ttyl t+ Lad tedgh toh tt tay dt | ny cette tatatattnialacatate 
6535 "SBTTL RANCK = RANDOM PATTERN BUFFER 
£635 :aTHIS ROUTINE USES THE FIRST TWO WORDS OFT 
6537 ;#READ. BUFFER TO GENERATED RANDOM PATTERN. THEN 
6538 READ BUFFER IS COMPARED TO THE PATTERN GENERATED. 
6639 ENOTES THIS ROUTINE DESTROYS RI-R4 
£540 > *CALL 
6541 + JSR RO, O#RANCK 
Ha fe RETURN 
6644 026620 013746 022022 RANCK: MOV secon (SP) ;SAVE THE PRESENT RANDOM NUMBER 
tg SSee Sd 6137 48 BS 1 Noy en Retie. h Re ;READ BUFFER ADDRESS 
6647 026634 012701 046134 MOV SBUFFER 1024: ,R1';RANDOM PATTERN ADDRESS 
6648 122737 000017 001102 CMPB 817, STSTNM 
6549 001007 BNE 7§ 
B50 Ol 001212 MOV BUF Re 

1 10201 MOV Re, Rl 
6652 Ne702 01000 ADD aSi2. ,R2 
8653 062701 002000 ADD #1024: ,Rl 
6654 10403 73: MOV R1,R3 ;COPY IT INTO R3 FOR LATER USE 
6655 11 022024 MOV (RO), @8SLONUM ;PRIME THE RANDOM NUMBER GENERATOR 
6655 016237 022022 MOV 2(Re) , a8SHINUM 
£657 004037 027065 JSR RO, J#RANPAT GENERATE _A RANDOM PATTERN 
6658 Olebs deeue MOV (SP)+,38SLONUM :RESTORE PRESENT RANDOM NUMBER 
6659 12637 MOV (5P)+; JeSHINUM 
6560 CLR -(SP) ;NO_ERRORS 
6651 1 1S: SUB (R3)+, (R2)+ ; ARE THESE TWO WORDS DIFFERENT? 
bbb2 001452 BEQ 4g NO--BRANCH 
6663 12737 27020 001200 MOV #3, SESCAPE ie TO 3$ ON ERROR 
6EE4 342 ADD -(R3).-(Re) CREAT ont BAD WORD 
6bES 10237 001122 MOV R2, J8$SDADR OF BAD DATA 
66565 10337 001120 MOV R3, J#SGDADR + MOORES OF GOOD DATA 
eee 15537 oie Am RES a Oo 
6 9 
eee: 153R NOV R2,R4 PORN WORD NUMBER (1 TO 256) 
6570 122737 000017 001102 CMPB s«& 17, STSTNM 
6571 026764 001005 BNE 9$ 
6672 O26 163704 oOO0l212 SUS BUF RY 
6673 O26 1be704 001 Sus #512. ,R4 
Poe feoree 045134 9 Bt OSUFFERS12 RY 
6676 027004 eet 8S: ASR RY 
6577 71g TST (SP) ;FIRST ERROR 
a sy ema fe Scere 
le 105116 (SP) IYES--SET ERROR SWITCH 

6680 14 104015 ERROR 15 jREPORT THE ERROR 
6681 10401 2s: ERROR 1 T THE ERROR 
6E82 001000 177570 35: BIT $09, D¥SHR Hi ON TH ERS 
Ppa 1 Ea 001426 001103 ane ae RR. CT, aaserrl RAK, ERRORS OCCURRED? 
Bree eros 101406 see | 8s Koebne 
6686 027040 032737 177570 BIT #SWO1, J8SWR STOP COMPARING? 
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DERPK RANCK 





C.P = RANDOM PATTERN BUFFER CHECK 
6587 1 BNE S$ : YES--BRANCH 
6688 4g: CMP R1,R3 ALL DATA BEEN COMPARED? 
6659 027052 101322 BHI 1$ NO-- 
6690 027054 00572 Ss: TST (SP)+ : ERROR OCCUR? 
6691 O27056 001492 BEQ 65 :NO=-BRANCH 
6692 027060 013700 001270 MOV S8BYPASS, RO :TAKE ERROR EXIT 
B33 027064 900200 6S: RTS RO EXIT 
BES° OTT, RONPAT ~ RADON PATIERN GEIERATOR SS 
6 -TSBTTL RANDOM PATTERN GENERA TOR 
33 STHIS ROUTINE FILLS A 256 WORD BUFFER WITH A RANDOM 
£598 PATTERN OF WHICH THE FIRST TWO WORDS ARE THE BASE 
693 s#0F, THE PATTERN. 
6701 i MOV #ADR, RI sADDRESS OF THE BUFFER 
6702 3% ISR RO, JRANPAT 
6703 +# RETURN 
670S 027066 010245 RANPAT: MOV R2,-(SP) ;SAVE Re 
6708 027070 Ole702 000200 | MOV 8tb256/2,R2 ‘GENERATE 256 WORDS 
6708 need para 021676 1S: ia 58 JsSRAND GENERATE A RANDOM NUMBER 
Enid Hecibe o1yel S55092 eS: Roy gal onwl, (Rtye PUT LOM WORD IN BUF EER 
Bois Geri 003370 bet : OO RANCH 
6713 027116 O1 V (SP)+,R2 iBesyore Re 
p71 0271 RTS RO : 
6716 SETTLE RANAOR ~ RANDON ADDRESS GENERATOR aaa 
6717 - RANDOM ADDRESS GENERATOR 
671 THI GUTRE, GENERATES RANDOM CYLINDER. TRACK, AND SECTOR 
671 THIS. ROUT AND SAVES THEN IN THE DPS (DTADPB+10 AND DTADPB+12). 
e720 j ENOTES This ROUTINE DESTROYS RI-R3 
| 6722 JSR RO, 28RANADR 
bres <i RETURN 
6725 027122 004737 021676 RANADR: JSR PC, a#SRAND ;GENERATE_A RANDOM 
6725 027126 113701 Oeete4 MOVE as$LONUM. RI *FORM SECTOR IN RI 
6727 027132 it Deedes MOVB  @SSLONUM+1.R2 FORM TRACK IN Re 
6728 Oe7136 O1 MOV J#SHINUM, R3 *FORM CYLINDER IN R3 
6729 Der tHe STB RI *INSURE THE SECTOR IS BETWEEN 0 AND 21 
| 6731 02714 122701 o00026 1S: ChPB 40s ¢D22, RI 
732 Oe? 15¢ eat sai BGT 3$ 
| Be Bree iostol ‘pe 
6 1 BR 1$ 
& Oe? ibe 1 3S: s INSURE THE TRACK IS BETWEEN 0 AND 18 
E 164 BLT 
| 6738 027166 1 000023 4§: 
| 6740 Geri7d Dobe SS: 
| 6741 027176 106002 
|  br4e es 000772 
| 
me 
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Pll RANDOM ADDRESS GENERATOR | 
6743 027202 023703 002360 b$: CMP DeFCI6,R3 sINSURE THE CYLINDER IS SETWEEN FC AND LC 
py 003413 BLE 7§ 

745 1 Sic 
Bre l 06503 ROR R3 
6747 027214 005503 ADC R3 
g 027216 001371 BNE 6S 
Hes Mm 
6751 O27e24 0602 ADD R2,R3 
b7ee 02728 No5203 INC ORG 
6753 003364 BGT 63 
p7S4 027232 005403 NEG R3 
6 ree een 002362 73: CMP SFLC16, RS 
6757 BGE 8S 
fa es Sie et 
6760 BR ? 
6761 O27e52 023703 002360 8S: CMP D#FC16,R3 
6762 Oe7e56 003403 BLE 9 
oop pe7ee8 poneos ee F3 
6765 Oc7264 000764 BR 
b7bb 027266 110137 go3564 QS: MOVB 1, auoranea+10 sSAVE SECTOR ADDRESS 
B7e8 DeveTe ASSS? DOSEEE M a SED TADPES au E diel NOER-BBDRESS 
b769 027302 o00200 RTS 
p77h j RERSHESESSESERERSSES ESSE TESESSESSESEESESSRSETSEREREREENESEEEES 
6 TTL T THe CONTROL SWITCH SETT 
in SUN Heteeeett Rev uit Be WD HO Tie 
775 pa {eRe ap AND efoneBe 
Bore THIS ROUTINE DESTROYS R3 AND RY 
ica PC, J8GETSWR 
ers 2 AP TURN ) (C.SWRI=DESIRED CONTROL SWITCHES 
6781 027304 022737 177570 GETSWR: BIT . #SWO7,asSWR sREAD CONTROL SWITCHES? 
b7Be 027312 0014 BEC 2s iN 8 H 
3 e739 ah boo4i0 stan ore bag VER SHE Bociz 
b ‘ok ss ASCIZ asp ciz abt Baird 
3 Gere o12709 ONG ee ey 
6 p57 3e8 Boia? atts JSR Rd, dace Sece Thun BRE HE NEW SWITCH SETTINGS 
fa fea fee 3 Be 
Paap teres 1 001246 MOV is asc. SWR : PERIOD-SAVE NEW SWITCH SETTING 
6793 000746 BR GETSWR *LOOP 
6734 027370 000207 2S: RTS PC RETURN FROM CALL 


gee a et arene 
“SBTTL GETADR - GET BUS ADDRESS AND VECTOR ADDRES 
HTHIS ROUTINE IS USED TO INSURE THE BUS ADDRESS 
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DERPKC. $s 
6799 :#OF THE RHI1/RPO4Y IS SETUP TO READ THE PROPER VALUE. 
6800 IT WILL ALSO READ THE ADDRESS FROM THE TTY IF 
6801 #REQUIRED. 
p90 ENOTE: THIS ROUTINE DESTROYS RO-R4 
3 #CALL 
6804 + 
6805S :% JSR PC, J#GETADR 
corr i RETURN 
027372 905737 o0les2 GETADR: TST a¥BUSADR s INPUT FROM TTY REQUESTED? 
6809 g7376 001447 BEQ 7§ ;NO- -BRANCH 
£810 001252 CLR a#BUSADR *YES-=-CLEAR THE REQUEST FLAG 
6811 Ge7404 012700 001362 1S: MOV #RH. ADR, RO SEIRST ADDRESS 
6812 027410 Ole703 040072 MOV #MRHCS1,R3 >"RHCSI=" 
b813 14 011004 MOV (RO), RY sPRESENT RHC RHCS1 ADDRESS 
14 16 027612 JSR RO, J&GE TNUM RHCS1 
6815 27422 oo0402 BR a3 : COMMA 
bB16 D27424 000767 BR 1$ : PERI 
6817 0274 900430 BR cS *DOUBLE PERIOD 
6818 0274 10420 2s: MOV R4, (RO)+ ;SAVE NEW RHCS1 
6819 O27432 012703 040103 MOV #MRHVEC,R3 :"RHVECs" 
6820 027436 011004 MOV (RO), R4 *PRESENT RH11 VECTOR ADDRESS 
6821 O27440 004037 027612 JSR RO, a&GETNUM GET NEW RHVEC 
6822 Oe7444 00402 BR 3$ °C 
6823 027446 000756 BR 1$ *PERTOD 
| §824 027450 000417 BR cs *DOUBLE PERIOD 
| 6825 Ge745e 010420 3S: MOV RY, (RO)+ ;SAVE NEW RHVEC 
6826 027454 012702 040114 MOV #MRHPRI,R3 ;"RHPRIO=” 
6827 027460 011004 MOV (RO), R4 *PRESENT RH11 PRIORITY LEVEL 
6828 O27462 006304 ASL RY *POSITION FOR TYPEOUT 
6829 027464 006304 ASL RY 
6830 027465 006304 ASL RY 
£831 027470 000304 SWAB. ORY 
6832 027472 004037 027612 JSR RO, &GETNUM GET NEW RHPRIO 
6833 027476 000402 BR 4§ > COMMA 
| 6834 027500 Ooo401 BR ug * PERIOD 
| 6835 027502 BR 3 *DOUBLE PERIOD 
£836 027504 010210 4S: MOV Re, (RO) :SAVE NEW RHPRIO 
| 6837 000736 BR 1$ *LOOP 
b638 627510 010410 cs: MOV RY, (RO) *SAVE INPUT 
12 OO00401 BR 7§ 
Peay BSTeIe DLOPAL Be fily «ss Baeneec.r1 Save TRE ERROR VECTOR 
peu> peres8 ieee MOV aHRRVEC AL : FOR TRAP 
6843 027530 005777 151626 TST RH. ADF: *CHECK FOR RH11/RPO4 
6844 027534 010137 O00004 MOV R1, d#ER VEC *RESTORE ERROR VECTOR 
6845 027540 Sie700 001362 MOV #RH. ADR, RO FIRST SS OF NEW PARAMETERS 
684% 027544 012701 032360 MOV #RPADR, R1 *FIRST ADDRESS OF WHERE TO PUT THEM 
6847 027550 Ole021 MOV (RO)+, (RI)+ *BUS ADDRESS 
6848 027552 bevel MOV (RO)+;(R1)+ “VECTOR ADDRESS 
6849 rl MOV (RO)+; (R1)+ ‘PRIORITY LEVEL 
6850 RTS PC * RETURN 
6851 10137 ooo004 8S: MOV R1, QKERRVEC *REST VEC 
6852 027564 Oerbeb CMP = ( SP) +, (SP)+ sRCEAN OFF THE STACK 
6853 Oe7566 104010 __ Epnon id sREPORT THE ERROR 
6854 027570 005737 dco0bYe TST ase IS THERE A MONITOR? 
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bese Bree Soenu? 


a 
es 
£864 
6865 
6867 
6868 

3 
6871 
pare 
6874 
6875 
6877 corel 010337 
eer deveeo boson 
6880 beveSe 010446 
6881 Oe76e4% 104402 
6882 027626 ee 
6883 027630 012601 
6884 027632 004037 
6885 aSPaR 027616 
6887 42 Gees 
6888 bored 0276 
6889 0e764%6 027704 
6890 027650 027616 
ea OE7E5S 004037 
6893 027656 027616 
6894 027660 027672 
6895 O2766e 027670 
6896 027664 
6897 027666 
6898 70 
6899 7e 010204 
6900 027674 O00414 
6901 027676 105711 
6902 027700 001346 
pane 000411 
904 105711 
6905 001406 
poe 02771 
p 027714 . 001 
908 027716 105711 
6909 027720 001336 
6910 027722 005720 


001256 
O2760e 005037 015120 
027606 000137 014744 


031646 


032102 
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eL Z Se oRVSEL 


eS--Ro oO IVES SELECTED 
CLR - JUSEOPCT 


JMP aeSEOP 80 ro END OF PROGRAM 
[er atte lee ne eee 


R 
sSOTe abt ROUTINE WILL PO UTYPE. AN N ASCIZ NESSAGE AND THEN 
Hg AN ASCIZ STRING aND CHANGE THE STRING TO OCTAL 
NOTE: THIS ROUTINE DESTROYS Ri 
¥CALL 


3 ¥C 
x MOV #ADR, R3 sADDRESS OF ASCIZ MESSAGE 
# MOV #NUM’ RY :OCTAL NUMBER 
% JSR RO, a&GETNUM 
& RETURNI INPUT TERMINATED WITH A COMMA 
i RETURN2 sWITH @ PERIOD 
# RETURNS *WITH A DOUBLE PERIOD 
* *R4=INPUT NUMBER AND 
* *Re=R4%32 FOR ALL 
2% : THREE RETURNS 
GETNUM: MOV R3,25 : MESSAGE POINTER 
1S: TYPE i PE THE MESSAGE 
2s: .WORD O iMES POT GOES HERE 
MOV RY, -(SP) *:SAVE RY FOR 
TYPOC G0 TYPE--OCTAL ASCII(ALL DIGITS) 
RDLIN *READ AN ASCIZ STRING 
MOV (SP)+.R1 ADDRESS OF FIRST CHARACTE 
JSR RO, auCK. CHR *CHECK ONE CHARACTER 
1$ *TLLEGAL CHARACTER 
1$ > CARR RETURN 
3$ ial 
73 arte: 
8s a 
‘s 1$ :DIGIT 0-9 
JSR RO, J#CK. NUM ;CHECK THE NUMBER 
1$ sTLLEGAL INPUT 
65 sTERMINATED WITH A ™,” 
3$ *TERMINATED WITH A.” 
>TERMINATED WITH A ”.." 
4S: TST (RO)+ : PERI 
S$: TST (RO)+ 3S PERI 
6S: Ho Re, RY ; CONMA—SAVE INPUT NUMBER 
7S: TSTB ss (RL) $60.10 Bx TOR AFTER A COMMA? 
BNE 1$ >NO=-LOOP 
BR 10$ *YES--EXIT 
eS: TSTB ss (RL) *TERMINATOR AFTER A PERIOD? 
BEQ *YES--EXIT 
CMPB ow’. (RL)+ *NO=-DOUBLE PERIOD? 
BNE 1$ =NO=-L 
TSTB = (RL) : YES--TERMINATOR? 
BNE 1$ *NO=-LOOP 
TST (RO)+ *DOUBLE PERIOD 
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0 GET A NUMBER 

9$: TST (RO ;PERIOD 

i0$: MOV RY, Re :COMMA==POSITION THE 
suas Re SNUMBER IN CASE IT 
ASR oR t1S THE PRIORITY LEVEL 
ASR- Re 
ASR’ Re 
RTS —-RO ;EXIT 


a a0 ha Oe GER ee ke 


;*#THIS ROUTINE IS USED us * MODIFY 
j #THE TEST TERS. IT GIVES THE OPERATOR 

*THE CAPABILITY OF SPECIFYING WHICH DRIVES TO TEST, WHICH 
iaTE a RUN ae HOW MANY TIMES TO 


PRM: J aeSAVROS ;SAVE RO-RS 
GT.PRI: CLR DRYSEL :NO DRIVE SELECTED 
rag $s Ure facts STRING. 
oa +3.ASCIZ (15) «12> DREVE (Soe 
*  RDLIN sREAD TTY 
MOV (SP)+,.R1 “ADDRESS OF ASCIZ STRING 
JSR RO, a8 atk. CHR *CHECK ONE CHARACTER 
gr Rt Oe eace RETURN 
GT.PR1 oy, 
GT.PR1 o~ 
GT.PRI sare 
ms 1s. rs :DIGIT 0-9 
2s: 
MOV -UPPER LIMIT OF INPUT 
JSR Ra’ Sack. bc sCHECK THE DIGIT(S) 
GT. PRI ILLEGAL INPUT 
GT.PR1 INPUT TO 
3$ i TERMINATED HI ae.° 
us TERMINATED WITH A °..* 
3S: Bl ATABIT(RE), DRVSEL :SET THE DRIVE SELECTED BIT 
cT sWAS THE LINE INATED? 
BNE *NO-GET THe NEXT DRIVE 
gt iene _jdeeeasieth pet 
4S: BISB BTABIT(RE) ORVSEL ;SET THE SELECTED DRIVE BITS 
GT.PR2: JSR RO, J8GETROS RESTORE RO-RS 
RTS PC tEXIT 
GTTST1: 
TYPE “ ;TYPE ASCIZ STRING 
BR asciz’ eae) 3GET OVER THE ASCIZ 
es; °”° & 
READ AN ASC ; STRING 


(SP)+,R1 
#’., (RL) 
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28 
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SISTERS INS EGKLKY 


Roe 
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=e pao 
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Not 


et oe 
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aoN3 
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—_ 
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RERSE cna ron Sue anna EREES 


-\i = 

— = — 

TO = 
= om -— 
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cocesé 000001 


ooo00e 
001260 


000123 
000177 
000124 
003600 
000101 
014000 
000104 
000105 
040000 
031572 


031572 


031572 
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1S: ‘ 
GTTST2: 
CMPB 


1S: 
2s: 
3$: 
4S: 


6S: 


oe dae aed Ses 
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;NO--BRANCH 


-"CR"? 


:YES--EXI 
NO TEST be EctED 


e TES! alte set 


NOC-BRAINCHE 
S--SELECT TESTS 0-6 
~ TIMING TESTS? 

:YES==SELECT TESTS 7-12 

ALL ADDRESSING TESTS? 

:NO- -BROnEA 

:YES--SELECT TESTS 13 8 14 

;DATA TEST? 

t YES--SELECT TEST 15 
EXERCISER TEST? 
*YES--SELECT TEST 16 
;OCTAL DIGIT? 

NO--BRANCH 


: MOVE TO NEXT CHARACTER 
SCALE HIGH DIGIT 


;COMBINE HIGH & LOW DIGITS 
LEGAL TEST NUMBER? 
;NO--BRANCH 


; SELECT TEST 
; TEST STRING? 


‘ BRANCH 
;YES--MOVE TO NEXT CHARACTER 
OCTAL DIGIT? 


:NO 

;YES--SAVE IT 

MOVE TO NEXT CHARACTER 
SOCTAL DIGIT? 


;NO--BRANCH 
sYES--MOVE TO NEXT CHARACTER 
sSCALE HIGH DIGIT 














eee - ee — 


GT.PRM - GET PARAMETERS 


PeR895  nooo17 
7025 030364 003245 
foe? Beos8 BeBdeS 001430 
1 
opes Babson Beescd 01430 
7031 O304%02e 005742 
7032 O30404 036204 001430 
7033 030410 001772 
7034 O304%le O00401 
7035 030414 O0S201 
7036 030416 050437 001260 
7038 o30422 a4 ooooss 
7040 hee 005704 
7041 O304%32 001622 
eos 030434 lelle7 000057 
7043 030440 001002 
7045 O30444 o00403 
7046 O30446 1lelle7 Oo00054 
7047 O304Se O0lel2 
7048 0630454 005201 
7048 030456 105711 
oper Sanups poles 
7052 OG30464 001026 
7053 O30466 000604 
7054 030470 O0S201 
isle? oooosé 
1410 
105711 
7058 030502 001402 
7053 eat 000137 030100 
mis 
ope apes peer 
7062 030514 pl 030072 
open Ganess esOt 
7065S 1 
re es fale mom 
7068 030534 001002 
r0e9 G30e%e bo01s? 030072 
7071 panswe nwo? 037744 
7073 000000 
7074 eaay 
7075 0052: 50 
7076 030560 022737 000016 030550 
7077 O30S566 002004 
7078 030570 004037 037770 
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Q 
73: abe RS it 
BGT GTIST1 
ASL Re 
CMP R4, BITS(Re) 
B TIST 
8S: BI BITecRe) , RY 
TST -(R2) 
BIT BITS(R2),R4 
BEQ 
BR GTTST4 
GTTST3: INC RI 
GTTST4: BIS RY, TSTNMS 
CMPB =s« (R11), #”.. 
BEQ GTTSts © 
TST R4 
BEQ GTTST1 
CMPB = s (RI), #7 
BNE 1$ 
BIS RY,R3 
BR 
1S: CMPB ss (R11), 8’, 
BNE GTTsti 
2s: INC Rl 
TSTB (R11) 
BNE GTTST2 
TST 3 
BNE OPNTST 
BR GTTST1 
BEQ GTTSté 
TSTB (RIL) 
BEQ 1$ 
= INP GTTST1 
BNE ST 
IMP GT.PR2 
GTTST6: INC R1 
TSTB ss (RL) 
BEQ A$ 
IMP GTTST1 
1S: TST R3 
BNE OPNTST 
IMP GT. 

;OPEN THE TEST FOR CHANGES 
OPNTST: JSR RO, J#SAVROS 
CLR (PC)+ 

OPN.CT: .WORD 2 
BR OPN. 
OPN.1: INC OPN. CT 
CMP #16, OPN. CT 
BGE OPN’ 2 


RO, JNGETROS 


; YES 
;NO-~ 


: YES=-BRANCH 
:NO--GO START TESTING 






14-OCT-76 10:36 PAGE ite 


CECA eet hutch 


18 THE FIRST NUMBER OF THE 
sani SMALLER THAN THE LAST? 


“BRANCH 
S--SET TEST SELECT BIT FOR SELECTED TESTS 
iRoiusT POINTER 





RENENT 
0 NEXT CHARACTER 
pe SELED ED coor BITS INTO 
;TEST SELECT WORD 
"PERIOD"? 
i YES- BRANCH 
SANY TEST SELECTED THIS CYCLE? 
i “OPEN? 
--BRANCH 
2Y YES eer BITS FOR TEST TO OPEN 
"COMMA? 
: NO--BRANCH 
iNONE TO NEXT CHARACTER 
*NO=-GO GET NEXT CHARACTER 
ANY TESTS TO OPEN? 
: YES--BRANCH 
iNO--START AGAIN 
MOVE T ONEXT CHARACTER 







ay Y Tear te TO BE OPENED? 


tNO==G0 START TESTING 
sMOVE, TO NEXT CHARACTER 













-=BRANCH 
ASK FOR TEST 
ANY TEST TO BE OPENED? 


;START WITH TEST O 
;COUNT STORED 1 
:SKIP THE INCREMENT 

;MOVE TO THE NEXT TEST 
;TEST NUMBER TO BIG? 
;NO--OPEN THE NEXT TEST 
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aeguamens 


g 


eae 
1 
030614 
030620 
030632 
030632 
7090 030636 
oha3 BS0e41 
7094 BS0ede 
7095 030652 
70397 030660 
7098 03066e 
71 
Hie ae 
7102 030672 
7103 030674 
7104 030676 
zie 030700 
16 be 
7108 030710 
7109 03071e 
7110 030714 
7111 030716 
71le 030720 
7113 030724 
He ee 
7116 ba0740 
7117 030742 
He ie 
rs fae 
oigh 030760 
ie bee 
71e4 030770 
wie 030774 
1 
7128 031002 
71e39 031004 
He Bis 
ois baiole 
7133 031014 
7134 031016 


ne 


gs8g8 


= B89 
8 £~u 
& 3829 


sSiblaa! 


BR 
Ben 


es 


ae 
-_ 
w 
NI 
—-OM- 
olco 


GSLs 


030720 


oa0s80 


001430 
030622 


030550 
001207 
001516 


001470 


001470 


ARAMETERS 


030742 


nal | aia D lg a AND READ/WRITE TEST” 


OPN.2: 


64S: 


1$: 


OPNPRM: 


18: 
es: 
3$: 


4S: 





JMP TTST 
MOV PN.CT,RS 
ASL 

BIT BITS(RS),R3 
BEQ OPN. I 

TYPE d 

SR 4g 

s+ .ASCIZ / TEST / 
MOV OPN. CT, -(SP) 
TYPOS 

.BYTE 2 

“BYTE 0, 

TYPE RLF 

MOV PRHPT (RS RO 
MOV ),-(5P3 
MOV RM Re 

BR 

ASR (SP) 

BCS 

BEQ OPNPRM 

TST (Re)+ 

BR 1$ 

OV (ROD)+, (R2)+ 
MOV JePRM, (SP) 
CLR RY 

ASR (SP) 

BCS 35 

BEQ OPNPRM 

TST (R4)+ 

BR 1$ 

TST PRMLMT(R4) 
BMI OPNPAT 

TYPE MSG. SP 

MOV PRMMSG(RY) ,4S 
TYPE 

. WORD 

TYPE MSG.EQ 

MOV RPT(RY).-(SP) 
JSR PC, a#$SB2D 
JSR PC; a#SSUPRS 
RDLIN 

MOV (SP)+.R1 

ISR RO, a8CK. CHR 
3$ 

2g 

S$ 

&S 

3$ 

TSTB ss (RL) 

BNE 3$ 

BR 2 
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iBeTue fo ASK K FOR MORE TESTS 


TEST 
t TYPE ASCIZ CFAING 
!iGET OVER THE ASCIZ 
SBM OPN.CT FOR TYPEOUT 

G0 TYBE--OCTAL ASCII 

ii TYPE 2 DIGIT(S) 
i SUPPRE RESS LEADING ZEROS 
‘PICKUP PARAMETER POINTER 
:SAVE THE VARIABLE INDICATOR 
SFIRST ADDRESS OF TABLE 


;CHECK FOR A VARIABLE 
560 MOVE THIS ONE 


: BUMP THE POINTER 

;MOVE THIS VARIABLE INTO THE 
COMMON AREA 

;GET THE VARIABLE INDICATOR 
3ZERO THE INDEX 

ite re A VARIABLE 


;GO_GET 
OUT OF VARIABLES 
UPDATE THE INDEX 


3I1S_THE MAX. MAGNITUDE NEG? 
ive eM IT IS THE PATTERN 


SP 
TYPE THE NAME OF THIS: VARIABLE 


a Von 


HANGE ao YR TO DECIMAL ASCIZ 
i PE WITHOUT LEADING. ZEROS 


sREAD AN ASCIZ STRING 
;CHECK ONE CHARACTER 
STLLEGAL CHARACTER 
eerie RETURN 


T_RPTCR4) ON THE STACK 


‘pict? 0-9 
;"CR"? 


jNO--STAY ON THIS ia ny 
;YES--MOVE TO NEXT V 


ARTABLE 
;IS THERE A "CR" AFTER THE PERIOD? 





is 


BB 
Se 


et ee eee 
© 


2 


INS TRER DES Loe 


bt bt bh bs PS Pe Bb = feo bo pe 


SBSSERR SHOE ESSRENSONUS SSeS 
SRS RSBesenereaee 
wun Ie 8 


SINNNNNSNSNNNNS SI 
RR Ren 
—— 
£r 


SS SSShisssssescsseesscssSsosessssssssssaacsaessaas 


the a ca a ee ee ee ee 


SSSVER2o-ow 


ror 
22 


031432 
0O000S6 


031450 


001554 
031722 


00147e 


040612 
040040 
040044 
001472 


031646 


000056 


032102 


001472 


037744 
002474 


031226 
03 
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TYPE 


4$ 
33-ASCIZ 4 WO/ 


MOV 
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OPN. Ne 
#’., (RL)+ 
$ 

(RL) 

OPN. X2 


PRMLMT(R4) Re 
RO, a#CK.DIG 


| 


Ree »RPTCR4Y) 


MSG. SP 
,MSG. PAT 


APTA), (0 


(SP)+ 
RO, sate CHR 


RO, d#CK. NUM 


R2, RPT(RY) 

OPNPRM 

RO, S¥SAVROS 

#PATO, RY 
+4 


RO, -(SP) 








i4-0CT-76 10:36 PAGE i44 


iVeS-~G0 CLOSE THIS TEST 
‘00U UBLE PERIOD? 
;NO--GO_ASK AN THIS VARIABLE 


YES--IS A “CR” AFTER THE DOUBLE PERIOD? 


;NO--ASK FOR Furs YORIRGLE AGAIN 
;YES--CLOSE ALL TEST 


; UPPER IMIT OF INPUT 
aha: HE Biel T ts). 


iSAVE THIS VARIABLE -” 
MOVE 


1 SAVE RPT(R4) FOR TYPEOUT 
TYPE--OCT at BSCTI CALL DIGITS) 

READ ASCIZ STRING 

*PICK UP POINTER 

*CHECK ONE CHARACTER 
‘ILLEGAL CHARACTER - 
;CARRIAGE RETURN 

So ee 
Poo 
‘pictT - 

"CR" AFTER THE PERIOD? 
*YES--GO CLOSE THIS TEST 
;NO--P ERIOD? 
3 


-LOOP 
POR" AFTER A DOUBLE enzo? 
Mary lla TESTING © 


;CHECK THE NUMBER 
; ILLEGAL INPUT ad 
STERMINATED WITH A," . rs 


START WITH WORD 0 


s;TYPE ASCIZ STRING 
t2GET OVER THE ASCIZ 


;PUT RO ON THE STACK 





N PATTERN 
:NO-=STERT AT BEGINNING OF PARAMETER TABLE 








"emer neater cea Ramae a 


Ble 
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EAD WRITE TEST” 


CAL 


BND FP 
st? PARAMETERS 


° 
° 


N 


ha 


¢ 





so : 4s 

oH : oh €S es 

2. wh Be Be 
BS S2omte eae oS PY at &. & 8 a2 Cae 
Re Sweetie zaz, go. “Ee £ Re yt ine Bie 28 
oS geese ee Soop wd Wy oe 5S PSs out Tye ewie 
ho ee ee ay Bae 
ot, 7 zwo 7 ir Coun, yw MOwa a ete 
gta ge = gee cpepeteeeette ah Seyi eg 

wwec@Souger: SG wit SESE Se = 
SEPSSEENEN 3 SOBBESEeR ohn. BOIS Hibs nue ee BORRGS eg 

ey. g 2 te ee 
ao : ‘ sae oe zof Eyéy 
set" 32 2 6. ® 3. egusegies 2s §-db ods 
mE og 2 seeinkle.ntenivshsvebieieenestesuaee 
eatlot jon Pa e - -ae 
SESE sation lnmap seh iaite ete Siig Siig SPOS RPE DRE ait 

% a $6 g8§ ci <8 s§Sa8 

oe Seb Behe & eee 
2 08 8 8 § : 8 888 8 
Bhs 


(Liz cees Eoscsseinenieciar ann GUNS cea 


SAAT Mo tah mation hh eas Au ui SSS er ae ee ay 


Sih Rath hd Rei Ree Ram kee kde Kee hte Rath OO Kees Kat, Lame, Ket Renee Dee Kone, Laos Kamm keen Teams aan Ream, ease aes, eam Leas Deak Kote eee Reams Deas Reem en eae Reams Yee ee Keeton Cots Fee one Fon Done, here ne Loam here keep been heen bam.) 


SISSSIISSISSSBSSSSSSSBSSESSSESSSSSSSSSRSSSRSSSSSSSSSsssss 


Bae eae UU LCCC RUE RNR RRR R RRR RT 


ee ee ne en re em ee ee < eee ees 


ae 


r 


GT.PRN = GET P 
000034 ce RS, #16#2 s AROEe TO al 


BL 
29 JSR RO, JeGETROS *YES--RESTORE RO-RS 
1430 38: BIT BITS(RS),R3 ie tare” ist OPEN FOR CHANGE? 

BNE 1$ S--G0 CLOSE IT 

a 2s *NO--MOVE TO NEXT TEST 
037744 CLOSE: JSR RO, a8SAVROS i SAVE RO-RS 
001470 MOV ry ;"FROM™ ADDRESS 
001516 MO PRMPT(RS) RI i. “a ADDRESS 

Hoy (RO)+,R2 FROM INDICATOR 

MOV 


Ee 


PIES 2 
SSSESEESSESSEEesBessesssess = 


1 012002 
1 12103 (R1)4_R2 7 ght sin 
1 isi oo0ot! #1,R4 TEST SrORT A “RPT” 
i 030402 1$: BIT RY, wa 32 TO BE MOVED? 
ie ene eit ied pM id pur 119 
ie 011011 MOV (RO), (RL) : YES--MOVE “FROM™ TO “TO” 
1544 030403 2s: BIT RY, R3 "TO" PARAMETER? 
154% O01401 BEQ 3$ :NO=-BRANCH 
1550 i TST (R1)+ *YES--UPDATE THE POINTER 
: 155e 005720 38: TST (RO) SUPORTE fron POINTER 
f 
OG BE com fie Be 
1564 004937 037770 ISR RO, 28GETROS j YES" “RESTORE RO-RS 
1570 000207 PC * RETURN 


RTS 
s SARSURAESEORERESERSERENEESESESSAESHREEEEEIUSENERODEESEOESORSD 
:S8 CK.OCT -- CHECK FOR OCTAL "wee 
:aTHIS ROUTINE IS USED TO CHECK IF AN 
= ate CHARACTER IS A DIGIT BETWEEN 0 AND 7. 
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DERPKC. ARAMETERS 

i 

i 

' 

| 

{ 

| 

| 


x MOV #ADR, R1 ;ADORESS OF ASCII CHARACTER 
# JSR _—s- RO, aBCK. OCT CHECK THE CHARACT 
2% RETURN iC. ARACTER IS NOT BETWEEN 0-7 
<i RETURNE *CHARACTER IS IN Re AS A 
ct -OCTAL DIGI 

031572 121127 o00060 CK.OCT: CMPB (Rl), #0 LESS THAN ZERO? 

031576 16h BLO 1$ “YES == 

031600 121127 o00067 CMPB sé RL), #°7 *GREATER THAN SEVEN? 

O31604 101 BHI 1$ ies oo 

1606 111102 MOVE (R1),Re THE CHARACTER 

031610 177770 BIC #tC7/Re :STRIP AWAY THE ASCII 

031614 005720 TST (RO)+ SADJUST FOR RETURN 

031616 1S: RTS RO * RETURN 


2 ga pea oy OE ge canna 
‘SBTTL CK.DEC -- CHECK FOR pecinen. & HARACTER 

;*#THIS ROUTINE IS USED TO CHECK eect aeCTER 

Z4AND DETERMINE IF IT IS A DIGIT "bet O AND 


ROHAN P SERRE ERCP REREREREAR 


2#C 
* MOV 8ADR, RI sADDRESS OF ASCII CHARACTER 
La JSR RO, J&CK.DEC * CHECK THe CHARACTER 
| 7301 * RETURNI "NOT BETWEEN O AND 9 
7302 +i “BETWEEN O AND 9 


en ne er a on ee ee + en ae Ee 
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DERPKC.Pil CK.DEC == CHECK FOR DECIMAL CHARACTER 





33 :% sRe = DIGIT 
7305 031620 121127 000060 CK.DEC: CMPB = (R11), #0 ;LESS THAN ZERO? 
2308 p31 103407 BLO 1$ joa - BRANCH 
? 1 lelie? O00071 CMPS =—s«(R21), #9 iGREATER THAN NINE? 
oape Gates titiae Sove «tL. Re 37 
7310 Baba i DO0DED BIC “6 Re aires THe IBscIt 
Ab Bis Bee re a a 
$ i 
7, 
7a epeeeessasneneeeeeesscennnsrenesessaneneneeeestsssssennenteoe 
red: : #THIS ROUTINE MIL CHECK AN ASCII CHARACTER TO 
gai? S#DETERMINE WHA 
7319 : MOV sADDRESS OF ASCII CHARACTER 
73220 : JSR RO abe. CHR :CHECK CHARACTER 
' 7321 # RETURN ROR ; CHARACTER 
7322 x RETURN :CARRIAGE RETURN * (R1)=ADR+1 
7323 1% RETURN aie >SLASH # (RI) =ADR+ 1 
7324 1# RETURN ADR :COMMA # (RL) =ADR+1 
7325 *# RETURN ADRS ‘PERIOD # (R1)=ADR+1 
7226 oe RETURN ADR *DIGIT BETUEEN 0 AND 
| 7327 :# :R2 = DIGIT # (R1)=ADR+1 
535 031646 10571 CK.CHR: TSTB (RI) "CARRIAGE RETURN”? 
7330 O3i6s9 agtaeo BEQ 4 “YES == BRANCH 
| 7a3l Gal 121127 000057 CMPB 3 s«(R1), #°/ "SLASH"? 
| 7332 O31656 Oo1414 BEQ YES == BRANCH 
| 7333 O31660 121127 oo00s4 CMPB 3 s«(R1), 8’, 2"C ? 
| 7334 031664 001410 BEG YES <= BRANCH 
| 7335 G3ieee 121127 000056 CMPB 3 s«(R21), #” :"PERIOD"? 
| 7336 031672 001404 BEG 1$ YES <= 
7337 O37 004037 021620 ae RO, a8Ck DEC j DIGIT:? 
ooeres ST -TRO)4 ‘OIGIT BETWEEN 0-9 
$333 neeaed 1$: TST (RO)+ * PERIOD 
| 7341 031706 005720 28: TST (RO)+ > COMMA 
| 7342 931710 005720 38: TST (RO)+ : SLASH 
| 7343 031712 505720 4g: TST (RO)+ ;CARRIAGE RETURN 
| 7344 031715 1 I Ri !MOVE POINTER TO NEXT CHARACTER 
| 7345 031716 011000 Ss: (RO),RO ; UNKNOWN CHARACTER 
| 7a 031720 000200 RTS RO * RETURN 
78 ata ae Bak cs Gee GRE eee 
| 7250 S¥THIS ROUTINE CHECKS AN ASCII STRING FOR LEGAL 
| 7351 *#CHARACTERS AND FORMS A DECIMAL VALUE BINARY NUMBER IN Re. 
| ee 2: : toy SHUN Re Pry . RBGNI TUBE OF INCUT NUMBER 
| 7385 i TOR RO, JRCK.DIG fe DIG "Ofer ie 
|» 7356 * RETURN ADAI ILLEGAL CHARACTER -- R2=? 
|. 7357 i RETURN ADR2 ; INPUT NUMBER TO LARGE =~ R2=? 
7368 + RETURN ADR3 “COMMA” -- Re = NUMBER 
| 


| 
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3 RETURN ADRY "PERIOD" -- Re = NUMBER 
RETURN ADRS :"PERIOD-PERIOD" -- Re = NUMBER 
1 1O44E CK.DIG: MOV RY, -(SP) ;SAVE RY 
p76 pte MOV R3, (SP) R 
331728 19246 MOV R2,-(SP) : Save THE MAX. SIZE ON THE STACK 
031 CLR Ro’ :START WITH O 
031732 €LR R3 
1 CLR RY 
1 031646 ISR RO, J8CK.CHR sCHECK ONE CHARACTER 
1 a3 ILLEGAL CHARACTER 
031748 is sf ; CARRIAGE RETURN 
ete ; ine 
1 st 77° 
031754 031756 15 :DIGIT 0-9 
031758 006303 1S: ASL R3 
031760 010346 HOV R3,~(SP) iShive *2 
031764 rend ASL R3 +) :*8 
£31766 ADD (SP)+,R3 : (#8)4(#2)=#10. 
031 ADD R2,R2 ;UPDATE THE INPUT NUMBER 
031 031646 JSR RO, a8CK.CHR “CHECK ONE CHARACTER 
1 85 ILLEGAL CHARACTER 
BS 5 CAGRI RETURN 
032004 032014 3$ 7° 
1B Oai7ee aa Te iDtcrT o-9 
032012 005724 es: TST (R4)¢ ;"“PERI 
032014 005724 3S: TST (R4)4 :* 
Oe01b 004037 031646 JSR RO, a#CK.CHR 2 c TER 
BS ; ILLEGAL CHRRACTER 
pacts eee 8$ =e 
032066 ie sen 
fee Gaetie : S$ DIGIT 0-9 
4§ TST (R4)+ ;PERTOD-PERIOD” 
032040 105711 TSTB ss (RL) "CR" 
O3e042 001405 BEQ BS *YES- BRANCH 
pee 12s 177776 OCOOS4Y SS: CHEB agiRl), 8", sWAS CHARACTER BEFORE THE DIGIT A COMMA? 
16 6S: CMP R3, (SP) tn i LARGE? 
101001 BHI 7§ YES == BRANCH 
ADD R4,RO *ADJUST RETURN ADDRESS 
7: TST (RO)+ 
gs: R3. Re TO R2 
(SP EAR AX, SIZE OFF OF STACK 


+ 
TR HeaTORe BS 


RO iGet Fetus ADDRESS 








SuBAMOTOS ESA 


? 


| 
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1 CK.NUM = CHECK NUMBER (OCTAL) 


K NUMBER (OCTAL) 

KS AN ASCIZ STRING FOR LEGAL CHARACTERS 
CTAL NUMBER IN Re 

% 


1 sADDRESS OF ASCIZ STRIN® 
BCK..NUM "GO FORM THE NUMBER 

;ILLEGAL CHARACTER IN THE INPUT STRING 
:* COMMA” =-RO=NUMBER 


RETURN ADRS : “PERI OD" =-R2=NUMBER 
RETURN ADR4 :“PERIOD-PERIOD"--R2=NUMBER 


moO 


-NUM: MOV 3. -(S) ;SAVE_R3 


032102 
O3e108 95003 CLR : START R AT ZERO 
032108 OHCs? 031572 ISR RO, a#CK. OCT sOCTAL DiGi ? 
032114 905201 1S: INC RI :MOVE TO NEXT CHARACTER 
O3e116 006303 ASL R3 “FOR THE OCTAL NUMBER IN R3 
032120 1034 BCS bs :DON’T LET IT GET TO BIG 

124 1034 BCS 6S 
pasts? ea ASL R3 
ie eee En 
rete 031572 JSR RO, J8CK.OCT 1S THIS AN OCTAL DIGIT? 

140 000401 BR 2s ‘NO--F IND WHAT IT IS 
032142 000764 BR 1$ *YES--MAKE IT PART OF THE NUMSER 
032144 01030 2s: MOV R3,R2 ‘SAVE THE OCTAL NUMBER 
032146 CLR R *START WITH ZERO INDEX 
0321 031646 JSR RO, a8CK. CHR s CHECK ONE 
0321 14 65 ?TLLEGAL CHARACTER 
0321 14 65 > CARRIAGE 
BaSies | pae5hM es ae 
ixcr ° 
032164 O3ei1 3$ sate 
032166 032214 6$ DIGIT 0-9 
§32170 38: TST (R3)+ :"PERTOD™ 
Basie oolone Ome NO INOCBRANCH Oe 
pa5d08 005201 INC Ri *YES--ADVANCE THE POINTER 
93202 4S: TST (R3)+ :“PERIOD-PERIOD™ 

cS: TST (R3)+ :"C 

032205 195711 TSTB (RL) incr"? d 
ic. 2 ° --BRANC 
pas5i9 anced BS RO *YES--SAVE THE OCTAL NUMBER 
032214 012603 6S: (SP)+,.R3 *RESTORE RO 
032216 011000 MOV (RO), RO *PICKUP EXIT ADDRESS 
022220 000200 RTS RO * RETURN 





in ne ne an , 
YIPWP r] 


P CK.NUN = C COCTAL} 
7462 5 ERRERRR REE ELAR ERE EEE ELE EER EEE ERLE ER ERE REALL EE EAE EE EER ELE EEE 
eed ~SBTTL RH11/RPO4 ORIVER (REV. 0.9) 


;#COPYRIGHT (C) 1974 
s DIGITAL wy CORP. 


; #MAYNARD, 1 
;#AUTHOR: JIM LACEY 







;#STORAGE FOR RHDS1, RHERI, RHER2, AND RHER3 ON AN ERROR “e” OR “S” 
; #RPE = RHDS! 


PSRPERRS+4 = RHER2 
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beapeecPit = DR ECR NUMBER . 
#RPERRS+6 = RHERS 





RPERRS: .WORD : 
WORD 
“WORD 0 
“WORD O 
s#TABLE OF DRIVE ACTIVE INDICATORS (DRVACT=8 BYTES) 
;#ORVACT=0 IMPLIES ORIVE IS IDLE 
*¥DRVACT)O IMPLIES DRIVE 1S ACTIVE WITH A COMMAND 
*#DRVACT<O IMPLIES DRIVE IS ACTIVE WITH AN ERROR RECOVERY OPERATION 
7488 032232 DRVACT: -BYTE 0 DRIVE 0 
1 “ 5 
puso §a5538 | ‘BYE OO DRIVE 2 
mal 032235 000 -BYTE 0 DRIVE 3 
ane ° 
at ‘BYE iBRIVE & 
7494 032240 000 "BYTE 0 :DRIVE 6 
7495 O3e241 009 -BYTE 0 DRIVE 7 
s#TABLE OF DRIVE STATUS INDICATORS (DRVSTA=8 BYTES) 
cag tSDRVETADO IMPLIES DRIVE 16 ONLINE™ 
7300 *#DRVSTACO NPLTEe BRIE 1 ORSALE OR NONEXISTENT 
7502 032242 000 DRVSTA: .BYTE O DRIVE 0 
BES ie 
cece Bassuc = B00 “BYT :ORI 
| 73be ; 000 -BYTE 0 sDRIVE 4 
me tee te ae 8 Dan 
7503 032251 000 ‘BYTE O DRIVE 7 
i 7511 *TABLE OF DRIVE TYPES (ORVTYP=8 WORDS) 
| 7518 s*DRVTYP WILL CONTAIN THE DRIVE TYPE OF ALL ONLINE, OFFLINE, AND 
| 7o13 *#UNSAFE DRIVES. IF A DRIVE IS NONEXISTENT DRVTYP WILL BE ZERO. 
| 76515 o32252 oo0000 DRVTYP: .WORD 0 DRIVE 0 
| 7516 032254 900000 “WORD O ‘DRIVE 1 
| 7517 032256 000000 ‘WORD O ‘DRIVE 2 
| 
s 
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DERPKC.P 


18 Geesee 


032272 


7S42 032276 


Ss 


N 

ats 

4 
a eae aT aT at 
OUWCW-O 


ROR 
sista 


1/RPOY DRIVER (RE 


O32264 000000 





8 


-WORD OQ sDRIVE 3 
-WORD Q ;DR 4 
-WORD OQ ;ORIVE 
-WORD 0 ;DR 
-WORD 0 sDRIVE 7 


coment, ny ty ELAG (TRNSWT=1 WORD) 
THIS IS A ONE WORD QUEUE. IT WILL CONTAIN THE ADDRESS OF 
+P" OF THE 1/0 OPERATION. 

TRNSWT: ‘Moro 0 

;*SEARCH WAIT ,, (SRCHWT=1 WORD) 
;#THIS IS A ONE On QUEUE THAT WILL CONTAIN A KEY FOR_EACH OF 
bSRE DatVes THat ARE ne’? ORM mS caer ta Ea FOR THE 1/0 
;*EACH DRIVE IS ASSIGNED ONE BIT, STARTING AT BITOO FOR DRIVE 0. 


SRCHWT: .WORD 0 


;#RPOY DRIVER ACTIVE FLAG (ACTORV=1 BYTE) 
s#ACTDRV=O IMPLIES DRIVER IS INACTIVE 
*#ACTDRV>O IMPLIES DRIVER IS ACTIVE 
ACTORV: .BYTE 0 
; #SOF THARE TIMER ROUTINE ACTIVE FLAG (ACTSTR=1 BYTE) 
s#ACTSTR=O0 IMPLIES SOFTWARE TIMER ROUTINE IS INACTIVE 
?#ACTSTR>O IMPLIES SOFTWARE TIMER ROUTINE IS ACTIVE 
ACTSTR: .BYTE 0 
;*UNLOAD FLAG (ULDFLG=8 BYTES) 
LG=0 IMPLIES NO UNLOAD COMMAND 
t HULDFLG>O IMPLIES UNLOAD COMMAND IN PROGRESS 
*#ULDFLG<O IMPLIES UNLOAD COMMAND IN WAIT GUEUE 
ULDFLG: .BY DRIVE 0 
‘BYE : i DRIVE i 
‘BYIE 8 DRIVE 3 
BYE 0 DRIVE 4 
“BYTE 0 :DRIVE S 
* BYTE f t ORIVE § 
s#LOOK AHEAD COUNT (LACNT=8 BYTES) 
s#LACNT WILL INDICATE THE NUMBER OF LOOK AHEADS PERFORMED 
LACNT: .BYTE O ;DRIVE 0 
"BYTE 0 :DRIVE 1 
-BYTE 0 : DRIVE é 
“BYT! f ‘DRIVE 4 
‘BYTE 0 DRIVE 5 
“BYTE 0 DRIVE 6 
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RPKC.P1l RH1L/RPOY DRIVER (REV. 0.9) 
7574 032317 000 .BYTE 0 DRIVE 7 
seoe s#SAVE REGISTERS FLAG (SAVEFG =1 WORD) 
ete 5 #SAVEF : <O IMPLIE Save THE RULI/RPOM | REGISTERS WHEN THE 
SHOPERATION IS COMPLETED AS PER (DPB+14). 
75793 t#SAVEFG=O IMPLIES SAVE THE RH11/RPO4 ‘REGISTERS, AS PER 
7580 :#(DPB+14), AFTER AN ERROR. 
es 032320 900000 SAVEFG: .WORD 0 
7584 ;*SEEK FLAG (SEEKFG=1 WORD) 
7585 s#SEEKFG=0 IMPLIES WHEN THE DISK ADDRESS ISN’T IN THE WINDOW 
7586 ?#FOR A DATA TRANSFER START A SEARCH COMMAND 
7587 ¥SEEKFG<O IMPLIES DATA TRANSFER WILL DO IMPLIED SEEKS, 
7588 DISREGARD THE WINDOW 
700 032322 000000 SEEKFG: .WORD O 
7592 s*TIMEOUT TABLE (TIMER=8 WORDS) 
733 s#THIS TABLE CONTAINS THE TIME ALLOWED FOR AN OPERATION 
7595 032324 177777 TIMER: pm -1 DRIVE O 
759% 0320326 177777 “WORD 1 DRIVE 1 
7597 032330 177777 “WORD 1 DRIVE 2 
7598 032332 177777 “WORD 1 *DRIVE 3 
7599 032334 177777 “WORD =] DRIVE 4 
Fem passe taeee7 “HOED =i DRIVE & 
7602 O32e342 177777 “HORD -] RIVE 7 
ren ;#DATA TRANSFER UNDERWAY INDICATOR (DTUW=1 WORD) 
7605 ; #OTUWCO IMPLIES NO DATA TRANSFER UNDERWAY 
7606 ?#DTUW=S+N (WHERE N=O TO 7) IMPLIES DATA TRANSFER UNDERWAY ON DRIVE N 
7608 032344 177777 DTUW: _ -1 
Sti s#ATTENTION BITS TABLE (ATABIT=8 BYTES) 
sell seTHIS TABLE CONTAINS THE CORRESPONDING BIT TO EACH DRIVES 
7613 : 
7614 032346 001 ATABIT: .BYTE 1 sDRIVE 0 
7615 032347 “BYTE 2 :DRIVE 1 
ble 032350 004 "BYTE 4 iDRIVE ¢ 
17 032351 O10 "BYTE 10 iDRIVE 
7618 020 BYTE 20 “DRIVE 4 
7619 032353 4g -BVTE 40 Dave S 
res, fasses «= boo ‘BYTE 200i DREVE ? 
755 ;#RPOY TO RH11 “MASS CONTROL BUS PARITY ERRORS” (MCPE) ALLOWED BEFORE 
7624 *#CALLING IT FATAL (MCPEMX=1 WORD) 
Test 032356 000003 MCPEMX: «WORD 3 
7628 s#STORAGE FOR RPADR (THE FIRST ADDRESS (776700) OF THE RH11/RPO4) 
7629 *#RPVEC (THE VECTOR ADDRESS (254)), AND RPVEC+2 (THE BR LEVEL (5)3. 


ve 
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000240 


RPADR: 
RPVEC: 
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-WORD 176700 
-WORD 2S4,5#32. 


;enaxTMun NUMBER, OF LOOK AHEADS ALLOWED IS 4 (MXLACT=1 WORD) 
-#MAXIMUM DELTA DELAY IS 8 SECTORS (MXDLTA=1 WORD) 

AXDLTA: .WORD 8. #64. 

i AINIHUM DELTA DELAY IS 2 SECTORS (MNDLTA=1 WORD) 

- #MAXIMUM J SEARCH FOR 1/0 WINDOW IS S SECTORS (MXWNDW=1 WORD) 


AXWNDIW 
DEFINITIONS OF THE RH11/RPO% ADDRESS INDEXES 
RHCS1=0 CONTROL AND STATUS REGISTER #1 (DRIVE REG 
RHBaS4 SUNTBUS ADDRESS REGISTER (NOt'A DRIVE REG) 
RHDA=6 IDES C 2 BboReSS RERTSY 
RHCS2=10 ‘CONTROL AND STATUS REGISTER #2 (NOT 
RHOSI=le : DRI STATUS REGISTER (DRIVE REG 01) 
RHER1=14 : GI #1 (DRIVE REG. O2) 
RHAS=16 *ATTENTI PSEUDO REGISTER ( 
RHLA=20 LOOK REGISTER (DRIVE REG. 07) 
RUne=od iMAINTAINABTL ITY REGISTER (ORIVE REC. Od 
RHDT= ‘DRIVE {NPE LE IStER TORIVE G. 06) 
aor ae i BERT ii Rea ; Rpee YG RES. - 
RHCA=34 i OESTRED EVLINDER BR aNESe Rectdter (DRIVE REG 
=36 CURRENT CYLINDER ADDRESS REGISTER (DR 
RHER2=40 : GISTER #2 (DRIVE REG. 14) 
2 “ERROR REGISTER #3 (DRIVE REG. 15) 
c1=44 ‘ECC POSITION REGISTER (DRIVE REG. 16) 
Cosi ECC PATTERN REGISTER (DRIVE REG. 17) 
=52 
;*#RH11/RPOY DRIVER INIT. CODE 
s*THIS ROUTINE WILL DETERMINE WHICH RPOY DRIVES 
j FAVATLABLE FOR TESTING “AND SET THE ORVSTA INDICATOR 
*#NOTE: THIS INE CALLS ORVINT _ 
*#CALL 
+ ISR PC,RPINIT 
* i RETURN 
RPINIT: MOV RPS, -(SP) SAVE PROCESSOR STATUS 
HOV REVEL+e  D4PS SET <PROCESSOR STATUS TO RH11/RPO4 LEVEL 
JSR PC CLRGUE : CLEBR ALL REQUEST QUEUES : 
ss, LC HREBPESRS CARY SBS 00 cL 
, CMP R1,Re 3ARE WE DONE? 


IVE REG 





S 
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gamma 3 
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BLOS )§6s«1S BRANCH IF_NO 
MOV soTUW Re iLAST ADORESS 
2s: MOV #-1, (R1)+ j INITIALIZE 
CMP Ri Re 
BLOS so 2 1100 iF NO 
CLR R ‘DRIVE NUMBER WILL BE IN RI 
MOV RPADR, RY ‘FIRST ADDRESS OF RH11/RPO4 
MOV #BITOS.RHCS2(R4)° ;MASSBUS I tr 
33: 3k RO, DRVINT GO INIT: A DRIVE 
4S: INC Ri sMOVE TO THE NEXT DRIVE 
BIC #1C7,R1 “DON’T LET THE DRIVE NUMBER GET TO BIG 
BNE 3 “BRANCH IF MORE DRIVES TO INIT. 
MOV RPVEC,R3 ‘SETUP THE RH1I/RPO4Y VECTOR 
MOV #ISR, (R3)+ 
MOV RPVEC42. (R3) 
JSR RO, GETRIS sRESTORE R1-RS 
HOV (SP)+, 04PS sRESTORE THE PROCESSOR STATUS 
73: CLRB  DRVSTACR1) *SET THE DRIVE STATUS TO OFFLINE 
BR 4§ GO DO THE NEXT DRIVE 


;#ORIVE INIT. ROUTINE 
;*THI POUT ie DETERMINES IF A DRIVE Bast AND IF IT IS 
; #AN IF IT IS, A “READ-IN PRESET” IS ISSUED AND FMT2e 
s#IS SET TOA "1". THEN MOL, DPR, ORY, AND VV ARE CHECKED TO 


#INSURE THEY ARE ALL ON A “1". AND DEPENDING ON THEIR STATE, 
ase #DRVSTA IS SET TO THE PROPER CONDITION. 
* MOV #DRVNUM, RI sDRIVE NUMBER TO Ri 
2 MOV RPADR, R4 ae BUS RODRESS OF RH11/RPO4Y (RHCS1) 
* x JSR RO, ORVINT ALLED BY A 
+ RETURN RROR OFCURRED (PARITY) 
2 RETURN2 t RORMEL RETURN 
ORVINT: JSR RO, SAVRIS : RI-RS 
MOV R1;RHCS2(R4) SELECT A DRIVE 
MOV R1,R3 *COPY THE DRIVE NTO 
ASL R3 ?R3 AND POSITION IT FOR TABLE INDEXING 
MWB #-1,DRVSTA(R1) START DRIVE STATUS AS NONEXISTENT 
CLR DRVTYP(R3) *CLEAR THE DRIVE TYPE INDICATOR 
MOVB #111, 3RPADR *DO A “DRIVE CLEAR" C 
BIT #81T12,RHCS2(R4)’ :NONEXISTENT DRIVE? 
BEQ 1$ ;NO---BRANCH 
JSR PC, SET. IE G0 SET “IE” WITHOUT A “TRE™ 
1S: em BB, RO.RP ‘READ THE BRIvE TBE REG. 
RETURN 5 
fey (SP)+,R5 tEOT DR IVE AME TN Re 
MOV R5,ORVTYP(R3)  ;SAVE THE DRIVE 
CMP #20020, 71S ITA SI PORT RPO4? 
BEQ 2s : HIF YE 


SI 
BNE “BRANCH IF 
2S: MOV #121,-(SP) DO A UREADS TN PRESET" 
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RO, WRT. RP 


gills. ots?) ;SET FMT22=1 
RO,WRT.RP 


RO,RD.RP sREAD RHDS1 

(SP)+,RS : AND SAVE IT IN RS 
RANCH IF ATA=0 

ATABIT(R1),RHAS(AY) -CLEAR ATTENTION BIT 

RO, RO. RP sFIND OUT WHY ATA=1 

(SP)+ s1S IT UNSAFE? 

$ : BRANCH Ri YES 


Ss CHECK DPR, DRY, AND VV 
piccerT12¥e1T08:B 107 BI Te) RS’ 

IF MOL. DPR. DRY, OR VV IS CLEAR 
#1,ORVSTA(R1) SET SRIVE STAtUS TO ONLINE 


DRVSTAC(R1) ;DRIVE STATUS = OFFLINE 
(RO)+ ;STEP OVER THE “ERROR RETURN 
RO,GETRIS sRESTORE R1-RS 

RO ; RETURN 


; *REQUEST PRE-PROCESSOR-HANDLES SUBSYSTEM REQUEST 


20 
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Nee 
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2 


oO 
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danidtedaa Caran a SUS ecraacene dae ea zee F 
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Chenreecces 


ee 





ee 


RO, d#RPOY ;CALL THE RPOY DRIVER 
; VES PARAMETER BLOCK 


I L 
REQUEST IS IN QUEUE OR THERE 


*RETURN HERE I 
71S AN ERROR CONDITION 

aePS, -(SP) ; THE CALLING STATUS 

RPVEC+2.a8PS  ;DON’T ALLOW ANY RPOY INTERRUPTS 

#1, ACTDRV SET “ACTIVE DRI 

RO; SAVRIS >SAVE RI-RS 

(RO)+, Re *PICKUP THE DRIVE PARAMETER BLOCK POINTER 

16(Re) *CLEAR THE STATUS/ERROR INDICATOR 

(Re). RI *PICKUP THE DRIVE NUMBER 

DRVSTACRI) : CHECK ORIVES STATUS 

LG(RL) * UNLOAD IN QUEUE? 

EOF t BRANCH f 

RPADR, R4 *UNIBUS ADDRESS OF RHCS! 

RO, ORVINT GO INIT. THE DRIVE 

6 SERROR RETURN 

DRVSTA(R1) *IS DRIVE STATUS ONLINE? 

1 *BRANCH IF YES 

SBITIS!BITIY, + BCR) > ERROR” DRIVE IS OFFLINE OR NONEXISTENT 
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037604 
000103 


177777 
032232 


033162 
120000 
037764 
032276 
177776 
034402 


oo0c0e 
032300 


000016 


032274 


000016 
oo000e 


td rs | aia “MECHANICAL AND READ/WRITE TEST” 
DERPKC.P1 


1S: 


6$: 


;#OPTIMIZER-CALLED FOR A PARTICULAR DRIVE 


>#CALL 


;*COMMAND INITIATOR 
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RO, DRVOUE Bur THIS REQUEST IN QUEUE 
#103, 2(R2) 2 THIS REQ. FOR AN UNLOAD? 
#-1,ULDFLG(R1) ;SET THE “UNLOAD IN QUEUE” FLAG 
DRVACT(RI) nf THIS DRIVE ACTIVE? 

PC, OPT :CALL THE OPTIMIZER 





alee ;SET THE “UNLOAD IN QUEUE” ERROR FLAG 


RO,GETRIS ;RESTORE R1-RS 
; CLEAR “ACTIVE DRIVER” FLAG 


(SP)+,a8PS ; RETURN Ege TO USER LEVEL 
RO RETURN TO CALLER 
—— GO HANDLE THE PARITY ERROR 






#DRVNUM, R1 s DRIVE bye TO RI 
PC, OPT ;SETUP A COMMAND 


RO, SAVRIS ;SAVE R1-RS 
aePs, -(SP) -SAVE PROC. STATUS 
BTRBLT (EL), SRCHUT -CLEAR “SEARCH WAIT” KEY 
PC, GETREQ ;GET “DPB” POINTER OF REQUEST 
1S THERE A REQUEST IN QUEUE? 
*NO--BRANCH TO EXIT 
















BevsTacri> 1S DRIVE ONLINE? 
PC, POPQUE *NO--REMOVE REQUEST FROM QUEUE 

#BiT1S!BIT14, 16(Re) -SET ERROR BIT OF STATUS/ERROR INDICATOR 
S$ ; BRANCH tO EXIT 

#150, 2(R2) i15_ THe REQUEST FOR 1/0? 

PC,CI4 *CALL THE C NITIAT 

ss SERARICH TO ee mechani 

DTUW "DATA TRANSFER UNDERWAY? 

4§ :YES--GO START A SEARCH 

SEEKFG Neston D SEEKS? 

RO,LA *NO-- K AHEAD 

S$’ *RET! HERE ON A PARITY ERROR 

4g GO START 

PC, CI :START A para TRANSFER 

C,CI3 sSTART A SEARCH 

(SP)+, JuPS RESTORE PROC. STATUS 

RO, GETRIS RESTORE R1-RS 

PC, SET. IE SET “IE” WITHOUT A “TRE” 

S$ EXIT THE ROUTINE 
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2E90000 
Ratitiayet=tat 
Restess 


122737 


Lan 
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ov 
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Sak t={={=] 
noe 
ns 


29 
Badd 


=e 


037702 
032272 


032360 
000010 
000004 


000002 
001232 
000017 001102 
001222 
037744 
001222 
177400 


172340 


160000 001222 
0012eee 


001234 


p00001 


000400 001232 5 


000002 
001000 001232 


0.9) 













: 8 Se" Beer. 

i JSR Beets ai @fisc 3 OR CI4 

:% Oni BEATA TRANSFER 

:% ICID=SEARCH REQUEST D.BY DATA XFER 
;% :CIG=NOT DATA TRAN 














CIl: JSR PC, POPQUE ; REMOVE REQUEST FROM “DRIVES WAIT” QUEUE 
MOV R2, TRNSNT REQ. IN TRANSFER WAIT QUEUE 
Cl2: MOV i DP ADDRESS TO R3 
MOV RPADR *RHCS1 ADDRESS 
MOV Rr Rneee (RM) *SELECT DRIVE 
ADD 84°R3 :DESIRED WORD COUNT 
ADD #2°R4 *RHWC ADDRESS 
MOV (R3)+, (R4)+ *LOAD WORD COUNT 
CLR EMP 
CHEB #17, $TSTNM 
MOV (R3)s TEMPY 
JSR save 5 
MOV TE EAB 
SWAB 
BIC 1177400, Rl 
ASR Ri 
ASR At 
ASR Ri 
ASR R1 
MOV KIPARO(R1),R2 
CLR R3 
ASL R2 
ROL R3 
ASL R2 
ROL R3 
ASL Re 
ROL R3 
ASL 
ROL R3 
ASL 
ROL R3 
ASL R2 
OL 


R R3 
BIC #160000, TEMP4 
BIS Re, TEMPS 


BNE 
MOV R3, RHBAE (R4) 
8$: BIT #1,R3 


BEG 65 
BIS #Al6, TEMPS 
BIT #2,R3 

#A17, TEMPS 
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0.9) 


MOV. TEMP4, RHBA(RY) 
Ue F 


ABOVE R3_HA FOR RHBAE IN 

;IN 11745 LOWER 2 BITS +m BE nar tN Aig AND AL? POSITIONS IN 2(R2) 
;LOOK AT A FEW Hob iNeS DOWN A T Eo arn t 

; THAT 2(Re Al6 Al? BY A BIS IneTRUZ TON AND NOT & MOV INSTRUCTION 
5 PFERAESEEHESRASEELESEEEREEESEEESEERSEEE SS ELSEA SEE EESE RES EASES ELSES 
RESEREEEL EERE ER ELE REE EAE EAEL EEE ER EEE EERE GEES EERE EEE SEES ES EEL ESS 

5 PEEREREE LESSEE EEELEREE RAS EE EEE ER SELES EE ERLE EE ELE EERE ERE EERE SELES SE 
;RRPEREEEEESELERELESEEE ESSER SEER SELSSEEASEAE SER ESEEESE REESE ES ERE ¢ 

5 FREER REERSE LESSEE EEE EREE ERE EEE RELA SELES EEA EEE SEER EEEEL ELAS EES © «+ 
Poreeag yaa 8 | ~ pore esamepemmeanrenmsnanaememper 


BR 
MOV (R2)+, (R434 ;LOAD BUFFER SDDRESS 


1$: 
2: MOV (R3)4,-(SP) ‘LOAD SECTOR AND TRACK 
ISR RO, WRT. RP sCALL THE LOAD(WRITE) ROUTINE 
R i OF REGISTER TO LOAD 
CI ERROR RETURN ADDRESS 
MOV (R3)+. -(SP) *LOAD CYLINDER ADDRESS 
JSR RO,WRT. RP 
RHCA 
C17 
CMP8 = s«8 17, STSTNM 
BNE 
a BIS TEMPS, 2(R2) 
; MOV 2(R2).-(SP) sLOAD “COMMAND+G0", “AL7SA16", AND “PSEL” 
JSR RO, WRT. RP 
Hoy Rt ,0TUH ;SET “DATA TRANSFER UNDERWAY™ 
CI3: MOV RPADR, RY sRHCS1 ADDRESS 
MOV RI.RHCS2(R4) 3SELECT DRIVE 
MOV Lethe), = (SP) *DESIRED CYLINDER ADDRESS 
JSR RO, WAT: RP 
aon 
MOVB =: 10 83 : PICKUP ECTOR ADDRESS 
SUB MXHNOM, "BACKUP BY MAX. SEARCH FOR 1/0 WINDOW 
ADD #22. .R3 
18: MOV R3, -(SP) sCOMBINE THE ADJUSTED SECTOR WITH 
move 1itr2),1(SP) ; THE SIRED T 
ISR RO, WRT: RP *LOAD DESIRED TRACK & SECTOR 
C1? 
MOV #131 = (SP) ;START A SEARCH 
ISR RO, WAT. 
RHCSI 
BISB ATABIT(RL) ,SRCHAT sSET “SEARCH WAIT” KEY 
CI4: Mov RPADR, RY :RHCS1 ADDRESS 
MOV RI,RHCS2(R4) 32. LECT DRIVE 
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ere 


000143 
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MUVB 
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18: 
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ang 


33: 


opgscEgegEney 
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4$: 


gsSCSagEge 


5S: 


BR 
6$: CMPB 
7$: 


Cl 
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2(R2),R3 
#131,R3 


i 
LO(R2),-(SP) 
RO, WRT. RP 


ES 

#1GS,R3 
l2(R2),-<(SP) 
RO, WRT. RP 
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;PICKUP THE sy Ut COMMAND 
il sa o an COMMAND? 

LOAD DESIRED TRACK & SECTCR 


360 START THE COMMAND 

318 IT A “RECALIBRATE” COMMAND? 
;BRANCH IF YES 

31S IT A RETURN TO CENTER? 

; BRANCH IF YES 

315 a oe mall COMMAND? 
ET THE DRIVE ACTIVE INDICATOR 
sEUt DRIVE STATUS TO OFFLINE 


IN PROGRESS™ FLAG 
;START THE “UNLOAD” COMMAND 


RETURN TO USER 
;15 IT A “SET FORMAT” COMMAND? 
*READ THE OFFSET REGISTER 


;COMBINE "FNT22","ECI™, AND “HCI™ 
*LOAD “FMT2e”, “ECI", ANG/OR “HCI”. 


31S IT A_ “GET REGISTER” COMMAND? 
RANCH IF 
OF WHERE 


;READ RPOY REGISTER 





ST LS IS LL LEI LAL LL LD CEA EL EDD TEIN, 
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SSR RRESS Cts ti uaal a Meee ee eeainininisniaiuiie 


ROW eC eS 
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HANICAL GND READ/WRITE TEST” MACYL1 27(732) 
O4 DRIVER (REV. 0.9) ‘ 
QS: RHCS! 
CI 
MOV { ie: (R3)+ 
034244 CMP 
BEQ iz ee 
ooooo2 o34244 0D 2,95 
000145 10S:  CMPB #8145,R3 
BEQ 12 
118: MOV R3, -(SP) 
036702 JSR RO; WRT.AP 
937708 123: JSR PC POPOUE 
205 ooca1é 1S #8{T97, 16(R2) 
O32 TST SAVEFG 
BFL 13S 
037044 JSR PC. SVRH11 
138: RTS PC 
CIs: Asc Ri 
001750 632324 HOV #1000. , TINER(RL) 
00000: 032232 MOVB 81,DRVACT(RL) 
RTS PC 
Clé: MOV R3,-(SP) 
036702 JSR RO; WRT. 
RHCS1 
C17 
BR crs 
032232 CI7A: TSTB ORVACT(RI) 
BEG CI7B 
104000 OCO0016 CI7: MOV #BITIS*SIT11, 16¢ 
nh C178 nov ali cae) 
heap JSR RO, WAT. RP 
RHCS1 
C18 
037564 JSR PC. EMPTY 
300 CLRB LG(RL) 
3e CLRB DRVACT(R1) 
032344 CMP Ri , DTU 
032272 ane TRNSWT 
177777 032344 MOV 8-1, DTUW 
iS: RTS PC 
037744 Clé: JSR RO, SAVRIS 
032360 MOV RPADR, RY 
CLR RL 
CLR 
032232 1S: TSTB  DRVACT(RI) 
BEQ 3$ 
03207¢ MOV TRNSWT, Re 
344 CHP R1,OTUK 
037660 fi BE cer TREQ 
037044 2s: JSR PC, SVRHI1 


tr ee tm ee ee eee 
? 
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; INDEX OF REG. TO READ 


;GET_THE CONTENTS OF RHII/RPO4 REG. 
SS MELE, 

GET OUT IF YES 

INCREASE THE INDEX BY 2 
;LOOP--MORE TO READ 

15 IT oe a DRIVE” COMMAND? 
LOAD THE COMMAND 


;REMOVE REQ. FROM QUEUE 
SET THE “DONE” BIT 
: SAVE Mg tt REGISTERS? 


; BRANCH 
:YES--GO SAVE THE REGISTERS 
RETURN TO USER 


;SET A ONE SECOND TIMER 


;SET THE DRIVE ACTIVE 
RETURN TO THE USER 
LOAD THE COMMAND 


;1S THE pervs ACTIVE? 
;BRANCH IF _NO 

;SET “PARITY™ ERROR INDICATOR 
;G 0 SAVE THE RH11/RPO4Y REGISTERS 

300 A “DRIVE CLEAR” 


sENPTY THE QUEUE 

CLEAR THE UNLOAD IN QUEUE FLAG 

DRIVE IS IDLE 

tIF THIS DRIVE HAD AN 1/0 REQUEST 

IN PROGRESS CLEAR ALL OF THE FLAGS 

SAVE RI-RS 

:PICKUP THE ADDRESS OF THE FIRST REGISTER 

sDRIVE ACTIVE? 

BRANCH TF’ NO 

Ger T “TRANSFER WAIT” QUEUE 

DID THIS DRIVE HAVE AN 1/0 IN PROGRESS? 

TF eS NTE 

he fhe DPS POINT 


;SAVE RH11/RPO4 REGISTERS 
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8078 gs532 gc276e l 900016 BiS . w#BITIS'BITIO, 16(R2) ;SET “NON-CLEARABLE PARITY” ERROR INDICATOR 
80 le 1 032324 MOV ofl TINER(R3) sSTOP THE TIMER 
8080 105061 032232 CLRB; ORVACT(RI) ‘SET “DRIVE ACTIVE” TO IDLE 
8081 105061 032390 38: CLRB: ULDFLG(RI) ‘CLEAR UNL L 
BO8e Oose0 INC Ri :MOVE TO THE NEXT DRIVE 
ooo002 ADD R3 ‘- 
8084 2701 177770 sic —._so# ¢¢7,, RI 
8085 1344 sBRANCH IF MORE DRIVES 
8086 01 177777 032344 MOV > 8-1, DTUW ?NO DATA TRANSFERS WAY 
8087 27 CLR;  TRNSOWT >CLEAR THE “TRANSF RATT T” QUEUE 
g088 JSR PC, CLROUE ?CLEAR ALL OF THE REQUEST QUEUES 
£089 O34610 012764 000040 900010 MOV sBITOS,RHCS2(R4)’ :D g nasseus INIT. 
8090 034516 004737 037136 SR —s- PC, SET; IE -SET “IE” WITHOUT “TRE” 
8091 O34622 004037 037764 JSR.  RO,GETRIS RESTORE THE REGISTERS 
8092 034626 000207 RTS = PC * RETURN 
Boss er #LO0K AHEAD ROUTINE 
8095 : 
8096 + #CALL 
8097 *# MOV.  sDRVNUM, ;DRIVE 
8098 2% MOV #DPB, Re :POINT TO 
go3g i JSR RO,LA GO CHECK WINDOW 
8100 = RETURN ERROR RETURN 
8101 3% RETURNE START A SEARCH 
228 <i RETURNS :START A DATA TRANSFER 
| B104 034630 013704 032360 LA MOV RPADR, RY GET RHCS1’S ADDRESS 
8105 O34634 010164 O00010 MOV RI,RHCSC(R4) SELECT DRIVE 
| B106 934640 pesos? 036544 JSR RO; RD.RP *READ CURRENT CYLINDER 
8107 O34644 000036 RHCC 
8108 Sabu 034760 4S sERROR RETURN ADDRESS 
103 O22662 000012 CMP (SP)+, 12(R2) iis. CURRENT CYLINDER=DESIRED 
| 8111 O34654 001037 BNE =-35 sEXIT IF NO 
Bile 034656 105261 03231 INCB —LACNT(R1) INCREMENT THE LOOK AHEAD COUNT 
8113 126137 032310 032366 CMPB _ LACNT(R1),MXLACT’ :EXCEED MAX? 
| 8114 003026 BGT 23 ;BRANCH IF YES 
8115 72 1 000010 MOVE  10(R2),R3 ice pESIRED SECTOR ADDRESS AND 
| 8116 Os676 SWAB OR H=ALIGN WITH 
| B117 O34 ASR R3 (BOK REAR REG 
8118 O34702 006203 ASR R3 
8119 O34704 012737 000340 177776 MOV #340, 28PS coarmatty LEVEL "7" 
Bled Zle 036544 ISR RO, RO.RP *READ LOOK AHEAD REGISTER 
81 a A 
| gt 034 4§ 
gi23 O347e2 162603 SUB (SP), ,R3 ;CALCULATE THE DELTA 
| 1 
| Bi Se Bm #(22.464.>,R3  ;MAKE THE DELTA POSITIVE 
8126 1S: CMP MXDLTA,R3 “CHECK THE DELTA 10 a SEE 
| 8127 BLT 3$ iF IT IS WITHIN THE 
8128 CMP MNOLTA,R3 WINDOW---IF YES ZERO 
| B129 034744 002003 BGE 3$ ;THE LOOK AHEAD SOUNT 
6130 746 105061 032310 2s: CLR LACNT(R1) "AND TAKE THE 1/0 EXIT 
| B13] 752 005 T (RO)+ 
Ble 754 0057; 3S: TST (RO)+ sADJUST THE RETURN ADDRESS 
| 61 756 bn8280 RT RO 
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ne 14 034402 


000001 
037744 


1 032360 
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035164 
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000016 


4: JSR 
RTS 
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PC,CI7 
RO 


;#INTERRUPT SERVICE ROUTINE 


ISR: 


Tr 

RH 

ee ef 
w 
za 


#1, ACTDRV 
RO. SAVRIS 
RPADR, RY 
DTUN, RI 


PC, 7D 


PC, SC 
RO; GETRIS 
ACTDRV 


;#TRANSFER DONE ROUTINE 


TD: CLRB 
MOV 
ASL 


MOV 


18: 


BoB MRE PS eos 


DRVACT(R1) 


#-1, TIMER(R1) 


S-avae tt 
F = 


as 
8 
~ 
+ 


“= 


SBISS 
Sa 
<w 


Uv 
z° 
—W 
ras 

— 


;#SPECIAL CONDITION ROUTINE 


SC: 
1S: 


wm 
fs 


1,R2 
DRVSTA(RI) 
2s 
Al 
Re 
Le eKEG, -(SP) 


SAVEFG, -(SP) 
PC,RPINIT 
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PROCESS THE ERROR 
TAKE ERROR RET.” 


;SET oa DRIVER” FLAG 


; SAVE a 

;ADDRESS OF RHSCS1 

:GET cute TRANSFER UNDERWAY” INDICATOR 
BRANCH IF _NO DATA TRANSFER UNDERWAY 
sca T ER DONE 


:CALL SPECIAL CONDITIONS 
tRESTORE R1-RS 

SCLEAR “ACTIVE DRIVER” FLAG 
RETURN 


;SET DRIVE ACTIVE INDICATOR TO IDLE 
NO DATA TRANSFERS UNDERWAY 


;CANCEL TIMEOUT 


RESS FROM T 
SPER WAIT QUEUE--CLE 


ier eeO"y THE DRIVE 
; TRANSFER ERROR(TRE=1)? 


QUEUE 


;8R IF_YES 
; SAVE RH11/RPO4 REGISTERS? 


;BRANCH IF 
REGISTERS 


SS aa 
;CALL_OPTIMI 
SPECIAL CONDITION (ENTRY #2) 


iva’ toch) SET Oe ue DRIVES WALT QUEUE 


; SAVE Te. RH11/RPO4Y REGISTERS 
;1SSUE A 


“DRIVE CLEAR” 
SPECIAL CONDITION (ENTRY #2) 


;START WITH DRIVE 0 
NOS BRBNEH 


S--HOVE TO THE NEXT DRIVE 
NOR DRIVES? 


“SEEK FLAG” 
FLAG" 
GO INIT. THE SUBSYSTEM 
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Cc 
DRVACT(R1) 
1$ 


1 
PC, SET. IE 
PC 


ORVSTA(R1) 
SC6 
ULDFLG(R1) 


Pe, 
PC ayaa 


STACR1) 


PC,SCle 





SP} +, SAVEFG 
at » SEEKFG 


#3,R1 
RHAS(R4) ,R3 
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THE “SAVE FLAG” 
iRESTOr eutpat FLAG” 


;BRANCH IF YES 

:00 er DRIVES 
sNEX OR 
;BRANCH IF OUT OF DRIVES 
:1S THIS DRIVE IDLE? 
: BRANCH Y NO 
REPORT THE ERROR 
GO SET INTERRUPT ENABLE 
;READ RHAS UP TO THREE TIMES 
READ “RHAS” 
;BRANCH_IF ANY ATA BITS = 1 
;COUNT THIS READ 


;LOOP IF MORE READS ALLOWED 
READ CONTROL AND STATUS REGISTER 


31S “IE"=1 
;NO--TAKE TERROR EXIT 
~RETURN 


> 
FPROCESS, ~'s DRIVES THAT HAVE 


;ATA=1? 
; YES--BRANCH 
MOVE TO THE NEXT DRIVE 


;BRANCH IF MORE TO CHECK? 
; CLEAN OFF THE STACK 


TO USER 
15 THIS DRIVE SETUP FOR 1/0? 
--BRANCH 


$- on P ace AND 


Plas RHDS1 Rl, RHER2, AND RHERS 
DO A ORVINT 


SA 
;ALS 
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SCb: 
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(SP),RS SPIKE er ) Daber ORE THE ERROR CALL 

5 ; REPORT 

a ;G0 CHECK OR MORE ATA’S 

tetas ;STOP THE TIMER 

PC, GETREG ie OPE on POINTER FROM THE GUEUE 
teen T 


R3, RHAS(R4) 
R1,RHCS2(R4) ; SELECT DRIVE, 
RO,RO.RP ;READ THE RPO4’S STATUS REG. 


(SP),RS s AND PUT IT IN RS 

(SP)4+ "WAS THERE AN ERROR? 

sca >BR IF NO 

DRVACT(R1) *CHECK THE DRIVE ACTIVE INDICATOR 
SC10 *BRANCH IF IDLE 

RO, RD.RP "READ ERROR REGISTER #1 

(SP)+,R5 sAND SAVE IT_IN RS 

PC, SVRH11 -SAVE RHI1/RPOY REGISTERS 
#111,-(SP) *ISSUE A DRIVE CLEAR 

RO, WRT. RP 

RS ;WAS “UNSAFE” CONDITION =1? 

1$ BRANCH IF 

a81T1S!81T07!B1TbS, 16(R2) s INFORM USER OF ERROR 
RO,RD.RP sREAD DRIVE STATUS REG. #1 

(SP) RS ;SAVE RHDS1 IN RS 

ior BA TF HO CLEARED 

#-1 DRVSTA(R1) iBRIVE He 

PC, SVRH11 *SAVE RH11/RPO4Y REGISTERS 
R3,RHAS(RY) CLEAR ATTENTION 

set TISHBIT12, 16(Re) s INFORM USER OF UNSAFE ERROR 
RS "DRY" = 

3$ F YES 


#-1, DRVACT(RI) Re VE ERROR RECOVER 
#1, ORVSTA(RI) ONLINE 


S70000. , TIMERCRI) ;START 30 SECOND TIMER 


SC 
SSPristerro7!BrToM 16(R2) sINFORM USER OF ERROR 
DRVACT (RI) DALE 1s IDLE 
PC EMPTYO DUMP T 
ULOFLG(RL) OE BAD N OPROERESS OR QUEUE? 
inn IF NO 
ULDFLG(RL) ‘CLEAR UNLOAD FLAG 
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sc8: §‘TsT (SP)+ sREMOVE (RHAS) FROM THE STACK 
1378 DRVACT(RL) *1S DRIVE IDLE? 

JSR PC, GETREQ : POINTER 

IMP CI? > PROC be ro PARITY ERROR 
1S: IMP CI7B *PROCESS THE PARITY ERROR 
SC9: TSTB ORVACT(RI) ‘TEST DRIVE ACTIVE 

BGT SCll *BRANCH IF DRIVE IS ACTIVE 


S Ac 
rs Weiristerto7ierre MoCRe)  ; INFORM USER OF ERROR RECOVER COMPLETION 


BR SC? 
SC10: MOV (SP 


RS ;PUT (RHAS) vin 
JSR pc, sti2 .SA REBSI, RHER1, RHER2, AND RHER3 
ERROR 2 *REPORT THE ERROR 
IMP Sc2 ;G0 CHECK FOR MORE ATA’S 
SCil: TSTB  ULDFLGCRI) :"UNLOAD IN PROGRESS”? 
fhe Honemn — OR LOD rasa 
1S: CLRB BRUREF RTD :SE Ba Ive IDLE 
BITB ATABIT(R1),SRCHWT sDOING A SEARCH OPERATION FOR 
*AN 1/0 COMMAND? 
By OBE popoue ERE iF NEST FROM QUEUE 
1S #81707, 16(R2) ice MBoneS Bit 
cT SAVEFG *SAVE THE RH11/RPOY REGISTERS? 
Tsk Pe, SVRHII iVESe-SAVE ALL OF THE RHLI/RPOY REG'S 
2s: TSR Pe, T ear A REQUEST 
SCl2: MOV R1,RHCS2(R4) __ SELECT DRIVE 
MOV RHOS1(R4) , RPERRS SAVE THE FOUR REGISTERS THAT 
MOV RHER1 (R4), RPERRS+2 *WILL TELL US SOMETHING 
MOV (RA) REERRS + : 
MOV (R4): +6 
JSR RO, ORVINT sINIT. THE STATE OF THE DRIVE 
BR 1$ “TAKE ERROR EXIT 
RTS PC * RETURN 
1S: TST (SP)+ *POP PC OFF OF THE STACK 
BR sce *PROCESS THE PARITY ERROR 


;#RPO4 TIMER ROUTINE 


#CALL 
+ MOV:  #TIME,-(SP) sELASPED TIME IN MILLISECONDS ON THE STACK 
= JSR RO, RPTMR *CALL RPOY TIME ROUTINE 
RPTMR: Ist ACTORV s CHECK “ACTORY 8 ACTSTR® 

MOVB #1, ACTSTR ity "Ac RO 

ISR RO, SAVRIS SAVE R1-RS 

cLR Rl ;START WITH DRIVE 0 
1S: TST FEMER(Ra) 31S THE TIMER RUNNING? 

BLT 2s BRANCH IF NO 

S 16(SP), TIMER(R3)’ ; COUNT THE oA NTERVAL 

BG 2s :BR IF NO SOFTWARE TIMEOUT 

JSR RO, STO “CALL SOFTWARE TIMEOUT ROUTINE 








i 





RUPE EET eeyr et ir nrerir iit bist RERER RAMA aaa sde dala 
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177776 
032364 
037744 


177776 


000016 
000010 


WRITE TEST” MACY11 27(732) 
BR $ 
2s INC 1 
TST (R3)+ 
CMP #8. ,R1 
BGT 1 
3$ JSR RO, GETRIS 
CLRB 3s act ST 
4S: MOV (SP)+, (SP) 
RTS RO 
s¥SOFTWARE TIMEOUT ROUTINE 
*¥CALL: STO 
2 MOV #DRVNUM, RL 
2 JSR RO, STO 
+ RETURN 
STO: MOV aaPS, -(SP) 
ae 
MOV RPADR, R4 - 
ISR RO, RD.RP *READ “DRIVE STATUS REG” 
RHDS1 
ST05 : 
TSTB 40s (SP)+ sIS “DRY*=1? 
Sto: Oy  TRNGUT.RE OT tp TR WAIT QUEUE 
COP RNB TU STAGNSFER UNDERWAY ON SHIS DRIVE? 
BEQ 1$ *BRANCH IF YES 
JSR PC, GETREQ °GET ADDRESS 
1$ BIS #BITIS*BITO9, 16(Re) THE ERROR FLAGS 
JSR PC, SVRH11 ;SAVE RH11/RPOY REGISTERS 
MOV #B1T0S. RHCS2(R4) oe THE MASS BUS 
CLRB  DRVACTIRI) sORIVE IS IDLE 
CLRB - ULDFLG(R1) “CLEAR THE UNLOAD FLAG 
cLR R :START WITH DRIVE 0 
2s: ISR DRVINT sINIT. THIS DRIVE 
BR PARITY ERROR RETURN 
TSTB  — ORVACT(R1) ;DRIVE IDLE BEFORE THE INIT.? 
BEQ ;YES--BRANCH 
MOV TRNSUT, Re GET TRANSFER WAIT 
CMP DTU, Ri WAS THERE I/O ON THIS DRIVE? 
ee Be cer CET THE DPE PO FROM QUEUE 
3S: BIS BtficeBiroe, 1ecRel 3I INIT. 
= cLRB DRvACT(RL) sSET DRIVE ACTIVE TO I 
) #-1, TIMER(R3) SO oe THe TI 
TST (R3S+ ;UPDATE THE INDEX 
INC R INCREMENT T DRIVE NUMBER 
.» RL *LAST DRIVE BEEN HECKED? 
BGT $ 3NO--L 
MOV #-1, DTUW =NO DATA TRANSFERS UNDERWAY 
CLR TRNSWT ‘CLEAR TRANSFER WAIT QUEUE 







14-OCT-76 10:36 PAGE i66 





;GO TO THE EXIT 
;MOVE TO NEXT DRIVE 


;OUT OF DRIVES? 

;BRANCH IF NO 

sRESTORE R1-RS 

;ZERO ACTIVE SOFTWARE TIMEOUT ROUTINE FLAG 
sADJUST THE STACK 

;RETURN 


;DRIVE NUMBER 
;CALL--DRVACT MUST BE NONZERO 


;SAVE THE PROCESSOR STATUS 
ey THE “PS” TO RPOY BR LEVEL 


; R1-RS 
;GET ADDRESS OF “RHCS1” 
SELECT THE 
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Oaeae 
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004037 03654 
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040000 


032360 
036664 
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ST02: 


STO3: 
STO4: 


STOS: 


;#ROUTINE TO READ A RH11/RPO4 REGISTER 


2s: 


3$: 





PC, CLROUE 
TO4 
HAS (RY) 


R RS 
ATABIT(RL),RS 


0,GETRIS 
tse, aePS 


PC,CI8 
STO4 


RO,RD.RP 


| 3 Cand 
- 
ma) 
oO 


88 


ae 
| bd Lo 
ay + 
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£wW <x 
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sCLEAR ALL REQUEST QUEUES 
?IS ATTENTION FOR THIS 

;DRIVE UP? 

: YES--BRANCH 

:DATA TRANSFER UNDERWAY FOR THIS DRIVE 
*YES--CHECK “RDY” 



















;BR IF _“RDY"=0 

;ADJUST an THE PROPER RETURN 
RESTORE R1- 

sRES TORE PROCESSOR STATUS 


G0 HANDLE THE PARITY ERROR 








;G0 ts A REGISTER 
REG. INDEX FROM BAS 

RROR ADDRESS--PROCESS ERROR STARTING 
AT THIS ADDRESS 

CONTENTS OF REG. IS ON THE STACK 






ae 





NO--BRANCH 

;NO--"TRE“=1? 

3NO- 

; YES ACK_AND 


CLEAN OFF THE ST 
s TAKE Te fee car ERROR EXIT 
ITION Re DRITING pti 18, Stent 
URL ASREEE HGR re 
sURPTE Tt et BYTE OF RHCS1 


3 ADORE 
sEXCEEBED MAX. RETRYS 
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Biol secre Qoeass 
7@ 036674 011000 
B3e700 Ob 


036772 


037024 





RD.RP2: .WORD 2 
D.RP1 sBRANCH IF NO 
RD.RP3: MOV (RO), RO : FATAL ERROR EXIT 
MOV (SP)+, (SP) 
RTS R 
;#ROUTINE TO WRITE A RH11/RPO4 REGISTER 


:*CALL 

x MOV DATA, -(SP) :DATA TO BE LOADED ON THE STACK 

2% JSR RO, WAT. RP “CALL THE ROUTINE TO LOAD(WRITE) THE REG. 
x INDEX INDEX OF THE REGISTER TO BE LOADED 

2% ERRADR *ADDRESS TO RETURN TO ON AN ERRO 

+ RETURN ‘ERROR FREE RETURN 


WRT.RP: MOV Fas, poten ;SAVE THE WORD TO WRITE 


MOV SP)+? (SP) sADJUST THE STACK 

MOV (RO)+;WRT.AD T INDEX OF REGISTER TO BE WRITTEN 
BNE 2s tBRANG IF NOT RHCS1 

CMPB ss 1S0, WRT.WD *1S THE COMMAND FOR DATA TRANSFERS? 
BLT $ *YES--DON’T GET THE OLD AlG3A17, & PSEL 
ISR RO, RD.RP ;NO--=COMBINE A1G8A17, & PSEL W uiTH 
RHCS1 “THE COMMAND BEFORE SENDING IT 

1§ THE RH11/RPO4 


(SP) 
BIC 8107 (SP) 
MOVB (SP), WRT.WD+1 


BR 

1S: we ano) AO ; TAKE THE ERROR EXIT 

es: ADD RPADR, WRT. AD ;FORM THE ADDRESS OF THE DISK REG. 
MOV (PC)+,a(PC)+ ;LORD THE DESIRED REG. 

WRT.WO: .WORD O WORD TO WRITE GOES HERE 

WRT.AD: .WORD OQ ADDRESS IS FORMED HERE 


JSR RC, RO.RP CHECK FOR PARITY ERROR ON WRITE 


BIT  #BITO3, (SP)+ 


BEQ 3$ ;BRANCH IF “PAR=0" 
MOV -2(RO), 1S *PICKUP THE INDEX 
JSR RO,RD.AP ; READ HE REG. 
1S: . WORD REG. INDEX 
25 RETURN 10 THIS ADDRESS ON ERROR 
_ ERROR 4 REPORT THE ERROR 
ST (SP)+ ; CLEAN OPF THE ST 
2S: Mov (RO) ,RO ?TAKE THE “PARITY ON WRITE” ERROR EXIT 
38: TST (RO)+ SADJUST FOR ERROR-FREE EXIT 
RTS RO : : 
;#ROUTINE TO SAVE THE RH11/RPOY REGISTERS AS PER DPB+14 
?#CALL 
* MOV #OPBNUM, R2 DPB POINTER TO Re 
2% JSR PC, SVRHI1 “SAVE THE DRIVES REG’S 
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37044 037 03774 SVRH11: JSR RO, SAVRIS sSAVE REG.’S RI-RS 
ge ac8 Se eoed 13704 832960 MOV RPADR, R4 
8528 037054 111264 O00010 MOVB  (R2), RHCS2(R4) ;SELECT DRIVE 
8529 037060 Ol6202 00014 MOV 14(R2) Re GET THE E ERROR TABLE POINTER 
8530 001421 BEQ 4g IT IF 
8531 037066 005003 CLR R3 COUNTER & POINTER 
Boe 7070 912705 oo0022 MOV #RHDB, RS PROBLEM REGISTER 
: R3,R5 "REACHED RHDB? 
8534 037076 005 2$ 
8535 100 105764 oo0010 TSTB  —- RHCS2(R4) *CHECK "OR" 
8536 104 100402 BMI 2 “BRANCH IF RHDB CAN BE READ 
£537 106 o05022 CLR (Re)+ ELSE SAVE IT AS O'S 
8538 037110 O00403 BR 3$ 
8539 O37lle O10446 23: MOV RY, 7{SP) ;FORM RH11/RPO4Y ADDRESS THAT IS 
8540 037114 060316 ADD (SP) *TO BE READ 
8541 037116 013622 MOV ash), (R2)+ AND READ I 
8542 037120 005723 3S: TST (R3)+ *MOVE TO NEXT REG INDEX 
8543 037122 020327 OO004G: CMP R3, #RHEC2 > DONE? 
8544 037126 003762 BLE 1$° *BRANCH IF_NO 
8545 037130 004037 037764 4g: JSR RO, GETRIS GET REGISTERS RI-RS 
Bub 037134 000207 RTS PC’ *RETURN TO USER 
BSH s SROUTINE TO SET THE INTERRUPT WITHOUT GETTING A “TRE™ 
8550 i MOV #DRVNUM, RI ;DRIVE NUMBER TO RI 
8551 + JSR PC,SET.fE SET “IE™ 
BS52 x RETURN 
Bead 037136 O10446 SET.IE: MOV RY, -(SP) sSAVE RY 
BSSS 037140 013704 032360 MOV RPADR, R4 PICKUP ADDRESS OF RHCS1 
8556 037144 010164 0 MOV R1, RHCS2(R4) SELECT DRIVE 
8557 b37 150 011446 MOV (R94), -(SP) Sl 
8558 152 052716 o40000 BIS epitl4, (SP) ISET THE “TRE” BIT OF THE WORD READ 
8559 037156 000316 SWAB ;ADJUST FOR DATO 
8560 037160 112714 000100 MOVB ‘BI 108, ( SET * 
8561 037164 032764 010000 oo0D10 BIT #81Tl2, ResecR4)’ -1S “NED"=1? 
Bobe 037172 001002 BNE 1$ ;YES--CLEAR “TRE” 
037174 005726 TST (SP)+ “CLEAN OFF THE STACK 
8564 037176 O0040e2 . BR 
8SES 937200 112664 000001 1$: MOVB  (SP)+,1(R4) CLEAR = TRE" 
8556 012604 25: MOV (5P}+)R4 *RESTORE R 
8567 037206 000207 RTS PC RETURN TO A CALLER 
g63 10 000 iene CONE 0 DRIVE 0 
8571 37519 000 “BYTE O DRIVE 1 
8572 037212 000 “BYTE 0 :DRIVE 2 
8573 037213 000 “BYTE 0 :DRIVE 3 
8574 037214 000 "BYTE O DRIVE 4 
8575 037215 000 "BYTE DRIVE S 
8576 037216 000 BYTE 0 DRIVE 6 
8577 037217 coo BYTE 0 DRIVE 7 
Se ;QUEUE INPUT POINTERS 
8581 037220 037302 QINPT: .WORD  QDRVO 
kth Tare ae - : 
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037462 


oooo0o00o0 


<a 3 


QOUTPT: .WORD 
- WORD 


QSTART: . 
QSTOF: 


; DRIVE 
QDRVO: 
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-WORD QDRV1 ;ORIVE 1 
-WORD  QDRV2 ;DRIVE 2 
WO QDRV3 3 PRIVE 3 
-WORD QDRV4 ;DRIVE 4 
WO QDRVS ;ORIVE S 
-WORD QDRV6 ;DORIVE 6 
WORD QDRV7 ;DRIVE 7 
;QUEUE OUTPUT POINTERS 
QDRVO ;DRIVE 0 
DRV1 ;DRIVE 1 
-WORD QDRVe ;DRIVE 2 
- WORD 3 ;DRIVE 3 
-WORD QDRV4 ;DRIVE 4 
-WORD QDRVS ;DRIVE S 
-WO BORVe ; DRIVE 8 
WO v ;DRIVE 
WORD QDRVO ;DRIVE O START ADDRESS 
-WORD QDRV1 ;DRIVE O STOP SS 8 DRIVE 
-WORD QDRVe ;STOP DRIVE 1--START DRI 
cm QDRV3 ; i 
-WORD QDRVS ;STOP DRIVE 4Y--START DRIVE 
-WORD QDRV6 ;STOP DRIVE S--START DRIVE 
-WORD QDRV7 ;STOP DRIVE 6--START DRIVE 
-WORD QTERM ;STOP DRIVE 7 
REQUEST QUEUES 
-BLKW 10 
-BLKW 10 
-BLKH 10 
-BLKW 10 
-BLKW 10 
-BLKW 10 
-BLKW = 10 
-BLKW 10 


;*ROUTINE TO CLEAR ALL OF THE REQUEST QUEUES 


*#CALL 


CLRQUE: 


1S: 


_—— = 


JSR 






PC, CLRQUE 
RO, SAVRIS sSAVE R1-RS5 

sat? 1,Re *ZERO THE QUEUE COUNTS 
(Res+ ‘DRIVES O 8 1 

(Re)+ ;DRIVES 2 & 3 

(Re)+ sDRIVES 4 & : 

(Re)+ *DRIVES 6 & 

#8. .R3 *MOVE THE STARTING 
#QSTART,RI ;ADDRESS OF THE QUEUE INTO 
(R14, (Re)+ *THE GUEUE INPUT POINTER 
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DERPKC. Pil Ib DRIVER (REV. 0.9 
Bn fee ties ay 
13 1 MOV sMOVE THE TBPTING RODRESS 
a ; le761 Bo9018 MOV aaétaeT Rl TYE SB Eue THE 
a as: MOY RDS, (RE}+ QUEUE OUTPUT POINTER 
4 485° 037764 a 53 ceTRIS RESTORE RI-RS 
Bev Bases Boose Ris sp’ , 
e647 EMPTY THE QUEUE SPECIFIED BY Ri 
£549 S#CALL 
5250 ty MOV —sORVNUM.R DRIVE NUMBER TO Ri 
B65) 3% JSR PC, eRPtyS 
| sees 37564 1 037219 EMPTYG: LAB QCNTCRL) :CLEAR NUMBER OF ITEMS IN QUEUE 
8655 O37572 016161 O37220 937240 MOV « QINPT(R1),GOUTPT(RI) ;SET OUTPUT QUEUE POINTERSINPUT POINTER 
| Ee ae Be md 
5 RIS PC 
gees :#ROUTINE TO PUT A REQUEST IN QUEUE 
| BES] #CALL | 
' para ; MOV #ORVNUM,R1 ;DRIVE NUMBER 
: MOV —«-8OPB. R2 ;RODRESS OF PARAMETER BLOCK 
ess f JSR _—-RO, DRVGUE GO PUT REQUEST IN QUELE 
BEES te RETURN] *RETURN HERE IF QUEUE 1S FULL 
| es tf TURN? *RETURM HERE IF REQUEST IS IN QUEUE 
| BBB 037604 122761 OO0D10 037210 DRVOUE: CMPB 810,QCNT(RI) ©; 1S QUEUE FULL? 
| 8669 Ga7e1e Ooivel BEQ Ss ‘BR IF YES-TAKE RETURNI 
| g670 14 195261 037210 INCE QCNT(RL) INCREMENT QUEUE COUNT 
| 8 reas 10871 037220 HOY Re, QGINT(AL) ©; PUT THIS REQUEST IN QUELE 
| 8673 0376206 Obe761 037220 ADD «#2 OTNP “UPDATE THE QUEUE POINTER 
| BE7y Debi 37220 037262 chp STAPTCRL). nasTorcAly ¢ “TIME TO RESET THE POINTER 
| BE75 1 ENE —s IS TF NO 
| BE7B 44 O1616! 037260 037220 MOV -«QSTART(R1),QINPTLRI) ;YES--RESET POINTER 
| BE77 oa7ese 00620: 1S: RI 
| 8678 905720 TST (RO)+ STAKE RETURN 2 
| 6679 037656 00200 2s: RTS = RO ?RETURN TO USER 
j 6680 
| B81 s#ROUTINE TO GET THE “DPB” ADDRESS OF NEXT REQUEST IN QUELIE 
ores **CALL 
| Bee4 2 MOV —s&DRVNUM, RI ;DRIVE NUMBER TO R 
| B68S te JSR PC, GETREG ;G0 GET THE REQUEST 
| BEBE te RETURN :Re="DPB" SS OF THE REQUEST 
! 58 tt ‘Re=0 IF NO REQUEST IN QUEUE 
| B689 oosoo2 GETREQ: C Re 
| BESO Barbe 105761 037210 TSTB © QCNT(RLD :18 THERE ANY REQUEST IN QUEUE? 
| 62 BS7e58 DoesOL 1s OT itm 
| Be 837672 017102 037240 ; MOV QOUTPT(R1),R2 ;PICKUP “DPB” POINTER FOR THIS DRIVE 
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ae - dae cag Sd. Reg | sRETURN TO USER 


;#ROUTINE TO “POP” THE REGUEST FROM QUEUE 


; #CALL 

* MOV sORVNUM, R1 ;DRIVE NUMBER TOR 

:# JSR PC, POPQUE “CALL TO REMOVE REQUEST 

:# RETURN SRE=ADDRESS OF DPB REMOVED 
037702 105361 037210 POPQUE: DECB QCNT(RI) sDECREMENT QUEUE COUNT 
03771 Sear 03724 MOV SQOUTPT Rt R2 ;GET THE 
037714 062761 009002 037240 ADD #2, QOUTPT(R1) :UPDATE THE QUEUE POINTER 
037768 026161 037240 037262 CMP QOUTPT(R1),QSTOPIRI) ;TIME TO RESET THE POINTER? 

001 BNE 1¢ -NO- H TO EXIT 

037732 016161 037260 037240 MOV GSTART(RL), QoUTPT(RI) :YES--RESET THE POINTER 
Neer 60620 1S: ASR 
037742 Soest? RTS Be ;RETURN TO USER 

; SROUTINES TO SAVE RO-RS AND RI-RS 

SACALL: SAVROS 

ie JSR RO, SAYROS 

3% RETURN sRO-RS IS ON THE STACK 

2#CALL: SAVRIS 

3% JSR RO, SAVRIS 

1 RETURN sRI-RS IS ON THE STACK 


% 
5 FUPON RETURN FROM SAVROS AND SAVRIS THE STACK WILL LOOK LIKE: 


ki: 
Lat) 
2 


3#410 8=6R1 


#406 Re 

3#+04 R3 

3 #+ By 

3#T RS 
gar SAVROS: sS0VE 0 RO BY THE JSR INST. 

010146 SAVRIS: MOV R1,-(SP) 

037746 010246 MOV Re, -(5P) : SAVE Re 
ea ptt OY Ra’) OVE Ra 
037754 bibs ue MOV RS|-(SP) -SAVE RS 
037756 O16646 o00012 MOV 1etsP),-(SP) GET RO 
037762 RTS RO 


Se nn ne ee ne ee LL TY 


nee A ae a on 


s #ROUTINES TO RESTORE RO-RS AND R1-RS 


PECALL: GETROS 
# JSR RO,GETROS 
te RETURN : sRO-RS HAVE BEEN RESTORED 


5% 
;#CALL: GETRIS 
:# JSR RO,GETRIS 
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;RI-RS HAVE SEEN RESTORED 


(SP), 14(SP) sPOSTT ON 
(SP)4 Opt HE 


(SP)+,R5 

(SP)+,R4 este Ba 
(SP)+,R3 RESTORE R3 
(SP)+,Re RESTORE oF 
(SP)+,R1 RESTORE RI 
RO RESTORE RO 


4 
JASCIZ /PAT/ 
<15><12>/CONTROL SWITCHES=/ 


(15><12>/RHCS1=/ 
(15> <12> /RHVEC=/ 
(15><12>/RHPRIO=/ 


JSR OFF OF THE STACK 


(15><12><12>/ROTATIONAL SPEED TIMES/ 


¢15><12><12>/0NE CYLINDER SEEK TIMES/<15><l@>/## 0, 1, 2,... 


(15><12>7#* 410, 409, 408,... 





(15><12)<12>/AVERAGE SEEK TIMES/<15><1l2>/## O TO 136 ##/ 
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